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PREFACE 



This manual describes the FORTRAN version 2.3 language for the CONTROL DATA'^^ CYBER 
70/ Models 72, 73, and 74 and the 6000 Series computers. It assumes that the reader has some 
knowledge of the CONTROL DATA computer systems and an existing FORTRAN language. 

The compiler operates under control of the SCOPE operatii^ system (Version 3.3 or 3.4). 
FORTRAN accepts main programs and subprograms written either in FORTRAN source language 
or COMPASS assembly language. 

Related manuals: 

FORTRAN Extended Version 3 Reference Manual 60329100 

FORTRAN Extended Version 4 Reference Manual 60305600 

SCOPE 3.3 Users Guide 60252700 

SCOPE 3.3 Reference Manual 60305200 

SCOPE 3.4 Reference Manual 60307200 

LOADER Reference Manual 60344200 

SIFT (FORTRAN Translator Program) 60358400 

COMPASS 2 Reference Manual 60279900 

COMPASS 3 Reference Manual 60360900 

This product is intended for use only as describai in this document. 
Control Data cannot be responsible for the proper functioning of 
undescribed features or imdefined parameters. 
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CODING PROCEDURES 



1.1 

CODING LINE 



A FORTRAN coding line contains 80 columns in which FORTRAN characters 
are written one per column. The five types of coding lines are listed below: 



Column 



Content 



Ste.t«ment 


1-5 


statement number or blank 




6 


blank or zero 




7-72 


FORTRAN statement 




73-80 


identification field 


Continuation 


1-5 


blank 




6 


FORTRAN character other than 
blank or zero 




7-72 


continued FORTRAN statement 




73-80 


identification field 


Comment 


1 


C $or * 




2-80 


comments 


Data 


1-80 


data 


Page eject 


1 


period 



1.1.1 

STATEMENT 



Statement information is written in columns 7 through 72. Statements longer 
than 66 columns may be continued to the next line. Blanks are ignored by 
the FORTRAN compiler except in H fields. The character $ may be used to 
separate statements when more than one is written on a coding line, however, 
it may not be used with FORMAT or DATA statements. A blank card may be 
used to separate the statements . 
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These statements are equivalent: 

I = 10 I = 10 $ JUM = 1 $ K = K+1 $ GO TO 10 

JIJM = 1 
K = K+1 
GO TO 10 



Also: 



DO 1 1=1, 10 
A(I)=B(I)+C(I) 
CONTINUE 
1=3 



DO 1 1=1, 10 $ A(I)=B(I)+C(I) 
CONTINUE $ 1=3 



1.1.2 

CONTINUATION 



The first line of every statement must have a blank or zero in column 6 . If 
statements occupy more than one line , all subsequent lines must have a FOR- 
TEAN character other man blank or zero in column 6. Continuation cards 
may be separated by cards whose first 72 columns are blank, A statement 
may have up to 19 continuation lines. 



1.1.3 

STATEMENT 
NUMBER 



Any statement except END may have a statement number, but only statements 
referred to elsewhere in the prc^ram require statement ntunbers. Statement 
numbers are integers 1-99999, and they may appear in any order. Leading 
zeros and leading or embedded blanks are not significant. 



1.1.4 

IDENTIFICATION 
FIELD 



Columns 73 through 80 are always ignored in the compilation process. They 
may be used for identification when the program is to be punched on cards. 
Usually these columns contain sequencing information provided by the 
programmer. 



1.1.5 

COMMENTS 



Each line of comment information is designated by a C, *, or $ in column 1. 
Comment information appears in the source program and the source program 
listing, but it is not translated into object code. The continuation character 
in column 6 is not applicable to comments cards . 
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1.1.6 

PAGE EJECT A card with a period punched in its first column will eject the page. The 

T'OT-nainHo-p r>f f V>o nQT-H is nAi+h(=>T" listpH -nmr r>nmm'lArl Thp lii=!tincr nf snhsp — 

quent material in the source program will begin on a new page. For the 
method of ejecting a page during printing see Output Statements in chapter 10. 



1.2 

PUNCHED CARDS Each line of the coding form corresponds to one 80-column card; the terms 

"line" and "card" are often used interchangeably. Source programs and data 
can be read into the computer from cards ; a relocatable binary deck or data 
can be punched directly onto cards. 

When cards are being used for data input, all 80 columns may be used. 
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ELEMENTS OF FORTRAN 



2.1 

i=ORTRAN 
CHARACTER SET 



2.2 
IDENTIFIERS 



Alphabetic: A to Z 
Numeric: to 9 
Special: 



= 


equals 




) 


right parenthesis 


+ 


plus 




> 


comma 


- 


minus 




• 


decimal point 


* 


asterisk 




$ 


dollar sign 


/ 


slash 


(space) 


blank 


( 


left parenthesis 







All characters appear internally in 6000 series display code (appendix A) . 
A blank is ignored by the compiler except in Hollerith fields; otherwise it 
may be used freely to improve program readability. Appendix A includes 
a list of additional characters which may appear in Hollerith literals and, 
with the exception of semi -colon, in DATA statements. 



2.2.1 

SYMBOLIC 
NAME 



A symbolic name can be any combination of 1-7 alphabetic or numeric 
characters, the first of which must be alphabetic. The combination of the 
letter O and 6 digits is recognized as an octal constant. Embedded blanks 
are ignored. 



Examples : 




0123456 


Illegal 




(as an identifier) 


012KK3 


Legal 


0123 


Legal 


A 


Legal 



SAM 
LENS 2 



Legal 
Legal 
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Symbolic names are used for: 

Formal parameters 
Variables 
Subprograms 
Main prc^rams 
Input/output units 
Labeled common blocks 



2.2.2 

STATEMENT 
LABEL 



Statements are identified by unsigned numbers, 1-5 digits, which can be 
referred to from other sections of the program. A statement label (from 
1-99999) may be placed an5rwhere in columns 1-5 of the initial line of a 
statement. Leading zeros and trailing blanks are ignored. In any given 
program or subprogram, each statement label must be unique. 



2.3 
CONSTANTS 



Seven types of constants are used in FORTE AN: integer, octal, real, 
double precision, complex, Hollerith, and logical. The type of a constant 
is determined by its form. The computer word structure for each type is 
listed in Appendix E. 



2.3.1 

INTEGER 
CONSTANTS 



An integer constant, N, is a string of up to 18 decimal digits in the range 



-(2^^-l)^N^2^^-l), The maximum value of the result of integer addition 
or subtraction must not exceed 2°^-l 
to 2l'^-2. 



Subscripts and DO-index are limited 



Examples: 

63 
247 



3647631 
464646464 



314159265 574396517802457165 



During execution, the maximum allowable value is 2^' -1 when an integer 
constant is converted to real. If the result is greater than 2^*^-1, bits 
48-58 will be ignored and errors may result. The maximum value of the 
operands and the result of integer multiplication or division must be less 
than 2^"^-!. High order bits will be lost if the value is larger, but no 
diagnostic is provided. 
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2.3.2 

OCTAL 
CONSTANTS 



An octal constant consists of 6 to 20 octal digits preceded by the letter O or 
1 to 20 octal digits suffixed with a B. The form is: 

tOn . ..n. 
1 1 

n, . . .n.B 
1 1 

Both forms are assigned logical mode; the second form may be used only in 
arithmetic or DATA statements. The constants are right justified with zero 
fill. If the constant exceeds 20 digits or if a non-octal digit appears, a 
compiler diagnostic is provided. 

Examples: 

2374216B 000007777777700000000 
777776B 07777700077777 

777000777000777B 02323232323232323 

0000077 

07777777777777700 



2.3.3 

REAL CONSTANTS 



t 



A real constant is represented by a string of digits; it contains a decimal 
point or an exponent representing a power of 10, or both. Real constants 
may be in the following forms: 

n.n n. .n n.nE±s n. E±s .nE±s nE±s 

The base is n; s is the exponent to the base 10; the plus sign may be omitted 
if s is positive. The range of a non-zero constant is approximately 10"^^'^ to 



10 



+322 



If the range is exceeded, a compiler diagnostic is provided. 



All real numbers are carried in normalized form. 

Examples : 

3. El (means 3. Ox 10 ;i. e. , 30.) 
3.1415768 31.41592E-01 

314.0749162 . 31415E01 

-3.141592E+279 . 31415E+01 



This form for an octal constant is not compatible with FOETRAN Extended 
and its use in new programs should be discouraged. 
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2.3.4 

DOUBLE PRECISION 
CONSTANTS 



A double precision constant is a string of digits represented internally by 
two words. The forms are similar to real constants, the base is n; s is the 
exponent to the base 10, 



nD±s 



n.nDis 



n.D±s 



nD±s 



The D must always appear. The plus sign may be omitted for positive s. 
The range of non-zero constant is, approximately, from 10~294 ^ 10+322; 
if the range is exceeded, a compiler diagnostic is provided. 



Examples: 



3.1415927D 

3.1416D0 

3141.593D-03 



3141.593D3 
31416. D-04 



2.3.5 

COMPLEX 
CONSTANTS 



A complex constant is represented by a pair of real constants separated by a 
comma and enclosed in parentheses (r , , r„) ; r, represents the real part of the 
complex number, r^ the imaginary part. Either constant may be preceded by 
a minus sign. 



If the range of the real numbers comprising the constant is exceeded, a 
compiler di^nostic is provided. Diagnostics also occur when the pair 
contains integer constants, including (0,0). 

Examples: 

FORTRAN Representation Complex Number 



(1., 6.55) 
(15., 16.7) 
(-14.09, 1.654E-04) 
(0., -1.) 



1. + 6.55i 
15. + 16. 7i 
-14.09 + .00016541 
0. - l.Oi 



2.3.6 

HOLLERITH 
CONSTANTS 



A Hollerith constant is a string of FORTRAN characters of the form hHf ; h is 
an unsigned decimal integer between 1 and n representing the length of the 
field f . The maximum number of characters allowed in a Hollerith constant 
of H form depends upon its usage; n is limited to 10 characters when used in 
an expression. In a properly formed DATA statement it is limited only by 
the number of characters that can be contained in up to 19 continuation lines. 
Spaces are significant in the field f. When h is not a multiple of 10, the last 
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computer word is left justified with blank fill. Alternate forms are nLf 
(left justified) and nEf (right justified) Hollerith constants with zero fill for 
incomplete words. A maximum of 10 characters is allowed in expressions 
for these forms. If more than 10 characters are used in a DATA statement 
for such a constant, only the last word has the zero fill. They may be used in 
an arithmetic statement. Hollerith constants are stored internally in 6000 



."%£iTn *i Q r* 



Oncost ni CT^iqir r^ntn^ 



Examples: 



2.3.7 

LOGICAL 
CONSTANTS 



6HCOGITO 

4HERGO 

3HSUM 

SRSUMbb = OOOOOSUMbb 



12HCONTROL DATA 

SLSUMbb = SUMbbOOOOO 

IH) 

3LbTT = bTTOOOOOOO 



A statement of the form: I=(+5HABCDE^ is permitted as a Hollerith constant, 
A semicolon (display code 77) cannot appear in Hollerith constants since this 
bit configuration is recognized as a Hollerith field terminator. 



A false constant is stored internally as binary zero. A true constant is stored 
internally as the one's complement of binary zero. Logical constants may be 
in the following forms: 



.TRUE, or .T. 



.FALSE, or .F. 



2.4 
VARIABLES 



FORTRAN recognizes simple and subscripted variables; a simple variable 
represents a single quantity; it references a storage location. The value 
specified by the name is always the current value stored in the location. 
Variables are identified by a symbolic name of 1-7 characters, the first 
of which miBt be alphabetic. 

The type of variable is defined in one of two ways : 

Explicit. Variables may be declared a particular type with the FOR- 
TRAN type declarations. 

Implicit. A variable not defined in a FORTRAN type declaration is 

assumed to be integer if the first character of the sjonbolic 
name is I, J, K, L, M, or N. 
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Example: 

115, JK26, KKK, NP362L, M 

All other variables not declared in a FORTRAN type declaration are assumed 
to be real. 

Examples: 

TEMP, ROBIN, A55, R3P281 

2.4.1 

INTEGER 

VARIABLES Int^er variables can be defined explicitly or implicitly; values may be in the 

range -(2^^-l) < I <(2^^-l) . The maximum allowable value of an integer 
variable depends on usage. The result of conversion from integer to real, of 
integer multiplication, integer division or input/output under the I-format 
specification is limited to 2-1; the result of integer addition or subtraction 
can be as great as 2^^-l. Subscripts and DO-indexes are limited to 2-'^' -2. 

Examples: 



N 


NEGATE 


ITEM 


K2S04 


M58A 


M58 



2.4.2 

REAL VARIABLES The type of a real variable may be explicit or implicit; the value must be in 

the range 10"294 < |r| < io^^22 ^j^jj approximately 14 significant digits. 
Each real variable is stored in 6000 Series floating-point format and occupies 
one word. 



Examples: 






VECTOR 


A62597 


X 


YEAR 


BARMIN 


X74A 



The variable, r, may have any of the following values: 

, +322 .^-294 ^ ,n-294^ ^ ^,^+322 

-10 < r < -10 , r = 0,10 < r < 10 
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2.4.3 

DOUBLE PRECISION 
VARIABLES 



Odd 



COMPLEX 
VARIABLES 



2.4.5 

LOGICAL 

VARIABLES 



Double precision variables must be defined explicitly by a type declaration. 
Each double precision variable occupies two words of storage and can assume 
values in the range 10-294 < |d| <io+3 ^.^j^ approximately 29 significant 
digits . 



Complex variables must be explicitly defined by a type declaration. A complex 
variable occupies two words in storage. Each word contains a number in real 
variable format. This ordered pair of real variables (Ci,C2) represents the 
complex number: Ci + i Co 



Logical variables must be defined explicitly by a type declaration. Each 
logical variable occupies one word of storage; it can assume the value true or 
false. A logical variable with a positive zero value is false; any other value 
is true. When a logical variable appears in an expression whose dominant 
mode is real, double, or complex, it is not packed and normalized prior to 
its use in the evaluation of an expression (as is the case with an integer 
variable) . 



2.5 

SUBSCRIPTED 

VARIABLE 



A subscripted variable may have one, two, or three subscripts enclosed in 
parentheses; more than three produce a compiler diagnostic. Subscripts can 
be expressions in which operands are simple integer variables and integer 
constants and operators are addition, subtraction, multiplication, and division 
only. Such expressions must result in positive integers; use of other values 
such as zero, real, negative integer, complex, logical may invalidate results. 

When a subscripted variable represents the entire array, the subscripts are 
the dimensions of the array. When a subscripted variable references a single 
element in an array, the subscripts describe the relative location of the ele- 
ment in the array. 



Valid Subscripted Variables 

A(I,J) 

B(I+2,J+3,2*K+1) 

Q(14) 

STRING (3*K*inM+3) 

Q(l,4,2) 



Invalid Subscripted Variables 

FEAN (0) 

P(3.5) 

Z14(-4) 

EVAL(2+(3.1,2.5)) 

MAX3(1,GE.K) 

1(2,-5,3) 
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2.6 
ARRAYS 



An array is a block of successive storage locations. The entire array may 
be referenced by the array name without subscripts (l/O lists and Implied 
DO-loop notation). Arrays may have one, two, or three dimensions; the 
array name and dimensions must be declared in a DIMENSION, COMMON, 
or TYPE declaration prior to the first program reference to that array. 



Each element in an array may be referenced by the array name plus a subscript 
notation. Program execution errors may result if subscripts are larger than 
the dimensions initially declared for the array. The maximum number of 
elements in an array is the product of the dimensions . 



2.6.1 

ARRAY 
STRUCTURE 



Array elements are stored by columns in ascending locations. In the array 
declared as A(3,3,3): 




^112 


^122 


^132 


^212 


^222 


^232 


"^312 


^322 


^332 



^113 


^123 


^133 


^213 


"^223 


^233 


^313 


^323 


^333 



The planes are stored in order, starting with the first, as follows: 



*iii - ^ 



h21 - ^^^■■- Ai33 - L+24 



A„„, —■ L+4 . 
221 

A , -» L+5 . 
321 



^33 - ^^^^ 
A333 - ^^^« 



Array allocation is discussed under DIMENSION declaration. The location of 
an array element with respect to the first element is a function of the maximum 
array dimensions and the type of the array . 

Given DIMENSION A(L,M,N), the location of A(i,j,k), with respect to the first 
element A of the array, is given by A+(i-l+L*(j-l +M *(k-l) ) )*E. 
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The quantity enclosed by the outer parentheses is the subscript expression. 
E is the element length— the number of storage words required for each element 
of the array. For real, logical, and integer arrays, E = 1. For complex and 
double precision arrays , E = 2 . 



Example: 

In an array defined by DIMENSION A(3,3,3), the location of A(2,2,3) with 
respect to A(l,l,l) is: 

Locn A(2,2,3) = (Locn A(l,l,l) + (2-1+3(1+3(2))))*! 
= (L + 22)*1 = L + 22 

FORTRAN permits the following relaxation of the representation of subscripted 
variables: 

Given A(D ,D ,D ), where the D. are integer constants, 

J. £j O 1 

then A(I,J,K) implies A(I,J,K) 

A(I,J) implies A(I,J,1) 
A(I) implies A(I,1,1) 
A implies A(l,l,l) 



similarly, 


for A(I 


^'^2^ 




A(I,J) 


implies A (I, J) 




A(I) 


implies A (1,1) 




A 


implies A(l,l) 


and for 


A(D^) 






A(I) 


implies A (I) 




A 


implies A(l) 



The elements of a single-dimension array A(D ) may not be referred to as 
A(I,J,K) or A(I, J), Diagnostics occur if this is attempted. 
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EXPRESSIONS 



An expression is a constant, variable (simple or subscripted), function, or any 
combination of these separated by operators and parentheses. The four kinds 
of expressions in FORTRAN are: arithmetic and masking (Boolean) expressions 
which have numerical values, and logical and relational expressions which have 
truth values. Each type of expression is associated with a group of operators 
and operands. 



3.1 

ARITHMETIC 

EXPRESSIONS 



An arithmetic expression can contain the following operators: 



+ 


addition 


- 


subtraction 


* 


multiplication 


/ 


division 


** 


ejq)onentiation 


operands are: 




Constants 




Variables 


(simple or subscripted) 


Evaluated functions 



Any unsigned constant, variable, or function is an arithmetic expression. If X 
is an expression, then (X) is an expression. If X and Y are expressions, then 
the following are expressions: 



X + Y 


X - Y 


X * Y 


X / Y 


-X 


X**Y 



If op is a valid operator and X and Y are valid expressions, then X op op Y is 
never a valid expression 
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Examples: 



A 

3.14159 

B + 16.427 

(XBAR+(B(I,J+I,K)/3) ) 

-(C+DELTA*AERO) 

(B-SQRT(B**2-(4*A*C) ) )/(2.0*A) 

GROSS-(TAX*0.04) 

(TEMP+V(M,MAXF(A,B) )*Y**C)/(H-FACT(K+3) ) 



3.1.1 

ARITHMETIC 

EVALUATION The hierarchy of arithmetic evaluation is: 

** exponentiation class 1 

/ division class 2 

* multiplication 

+ addition class 3 

subtraction 

In an expression with no parentheses or within a pair of parentheses in which 
unlike classes of operators appear, evaluation proceeds in the above order. In 
expressions containing like classes of operators, evaluation proceeds from left 
to right. For example, A**B**C is evaluated as (A**B)**C. 

Parenthetical and function expressions are evaluated first in a right-to-left scan 
of the entire statement. In parenthetical expressions within parenthetical expres- 
sions, evaluation begins with the innermost expression. Parenthetical expressions 
are evaluated as they are encountered in the right -to-left scanning process. 

When writing an integer expression, it is important to remember not only the 
left -to-right scanning process but also that dividing an integer quantity by an 
integer quantity always yields a truncated result; thus 11/3 = 3. The expression 
I*J/K may yield a different result than the expression J/K*I. 

For example, 4=^/2 = 6 but 3/2*4 = 4. 
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Examples : 

In the following examples, R indicates an intermediate result in evaluation: 



A** 


B/C+D 

A**B 

R^/C 

D*E - 

Ro*F 
o 

R -G 
5 


*E*F-G 
-«2 

-^ R_ 
o 


is 


evaluated 



evaluation completed 



A^*B/{C+D)*{E*F-G) is evaluated: 
E*F-G — R 
C+D — R 
A**B -^ R 

R =*=R — R evaluation completed 

4 1 5 

H(I3)+C(I,J+2)*(COS(Z) )**2 is evaluated: 

COS(Z) — R 

R **2 -* R 

J. w 

R2*C(I,J+2) -^ Rg 

R +H(13) — R evaluation completed 

3 4 

The following is an example of an expression with embedded parentheses. 

A*(B+( (C/D)-E) ) is evaluated: 
C/D -* R 
R^-E -^ R^ 

R *A -♦ R evaluation completed 

3 4 

(A*(SIN(X)+1.)-Z)/(C*(D-(E+F) ) ) is evaluated: 
E+F — R, 





1 


D-R^- 


«2 


C-R^- 


«3 


SIN(X) — 


-«4 



60174900 Rev. C 3-3 



R +1. — R 
4 5 

Rg-Z - R, 



evaluation completed 



3.7.2 

MIXED-MODE 

ARITHMETIC 

EXPRESSIONS 



Mixed-mode arithmetic with the exception of exponentiation is completely 
general; however, most applications probably mix operand types, real and 
integer, real and double, or real and complex. The relationship between the 
mode of an evaluated expression and the types of operands it contains is 
established as follows. 

Order of dominance of the operand types within an expression from highest 
to lowest: 

Complex 

Double 

Real 

Integer 

Logical 

Simple double precision expressions are not evaluated by closed subroutines, 
but by in-line arithmetic instructions. 

The tjrpe of an evaluated arithmetic expression is the mode of the dominant 
operand type . 

In expressions of the form A**B, the following rules apply: 

If B is preceded by a ruiary minus operator, the form is A**(-B). 

B is treated as an integer if type logical. 

For the various operand tj^es, the type relationships of A**B are: 

Type of B 



o 

® mode of A**B 

n indicates an 
invalid operation 

For example, if A is real and B is integer, the mode of A**B is real. 



I 


I 


R 


D 


C 


L 


I 


n 


n 


n 


n 


R 


R 


R 


D 


n 


n 


D 


D 


D 


D 


n 


n 


C 


C 


n 


n 


n 


n 


L 


I 


n 


n 


n 


n 
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Examples: 



1) Given real A, B; integer I, J. The t5^e of expression A*B-I+J is real 
because the dominant operand type is real . 

The expression is evaluated: 



i ■.nmvf^TT ! m r-ds i 



Convert J to 


real 


A*B — R 


real 


Rj-I - B^ 


real 


R^+J - R3 


real 



2) The use of parentheses can change the evaluation. A,B,I,J are defined 
as above. A*B-(I-J) is evaluated: 

I- J — *- R integer 

A*B — R real 

Convert R to real 

3) Given complex C,D, real A,B. The tjpe of the expression A* (C/D)+B 
is complex because the dominant operand type is complex. The 
expression is evaluated: 

C/D — ^ R complex 

Convert A to com^^lex 

A*R — R complex 
1 ^ 

Convert B to complex 
R +B — ► R complex 

4) Consider the expression C/D+(A-B) where the operands are defined in 
3 above. The expression is evaluated: 

A-B — R real 
C/D — • R complex 
Convert R to complex 
R^+R —*■ R complex 
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5) Mixed-mode arithmetic with all types is illustrated by this example: 
Given: the expression C*D+R/I-L 



c 


Complex 


D 


Double 


R 


Real 


I 


Integer 


L 


Logical 



The dominant operand tjpe in this expression is complex; therefore , the 
evaluated expression is complex. 

Evaluation: 

Round D to real and affix zero imaginary part. 

Convert D to complex 

C*D —*- R complex 

Convert R to complex 

Convert I to complex 

R/I — ^ R complex 

R +R — ► R complex 

R„-L -*- R, complex 
3 4 

If the same expression is rewritten with parentheses as C*D+(R/l-L) the 
evaluation proceeds : 

Convert I to real 

R/I — R real 

R -L — R real 

Convert D to complex 

C*D —*- R complex 

Convert R to complex 

R +R„ — *• R, complex 
2 3-4 ^ 



3.2 

RELATIONAL 

EXPRESSIONS A relational expression has the form: 



a^ op a^ 



3-6 60174900 Rev. C 



The a's are arithmetic expressions; op is an operator belonging to the set: 

. EQ. Equal to 

. NE . Not equal to 

. GE. Greater than or equal to 

. LT. Less than 

. LE . Less than or equal to 

A relation is time if a-^ and a2 satisfy the relation specified by op; otherwise, 
it is false. A false relational expression is assigned the value plus zero; a 
true relational expression is assigned the value minus zero (all one bits) , 

Eelations are evaluated as illustrated in the relation p. EQ.q. This is equiva- 
lent to the question: does p - q = ? 

The difference is computed and tested for zero. If the difference is zero or 
minus zero, the relation is true. If the difference is not zero or minus zero, 
the relation is false. Eelational expressions are converted internally to 
arithmetic expressions according to the rules of mixed-mode arithmetic. 
These expressions are evaluated and compared with zero to determine the 
truth value of the corresponding relational expression. When complex ex- 
pressions are tested for zero or minus zerOj only the real part is used in 
the comparison. For double precision numbers, only the most significant 
part is used in the comparison. 

Relational expressions of the following forms are allowed: 

I.LTJl 
I.LT.D 

I.LT.C (Real part of C is used) 

I is integer, R is real, D is double precision and C is complex. 

Order of dominance of the operand tjpes within an expression is the order stated 
in mixed-mode arithmetic expressions. 

The relation of the form I.GE.O is treated as true if I assumes the value -0. 

?t on Q nn a i<s rxnf n "(rfllid P'Xnrf^siOTi 

— -1 ^f ^c\ "Jt- "-q • • • *" "" " . a-**'- ^.iij-i~«J-' — -. 

A relation of the form a op a is evaluated from left to right. The relations 
a op a ,a^ op (a^), (a^) op a^, (a^) op (a^) are equivalent. 
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Examples: 

A .GT. 16. R(I).GEJl(I-l) 

R-Q(I)*Z.LE. 3 .141592 K .LT. 16 

B-C .NE. D+E I .EQ. J(K) 

(I) .EQ. (J(K)) 

3.3 

LOGICAL 

EXPRESSIONS A logical expression has the general form: 

^1 «p h °p ^3- • • 

The terms Lj are logical variables, logical constants, or relational expressions 
and op is the logical operator .AND. indicating conjimction or .OR. indicating 
disjimction. 

The logical operator .NOT. indicating negation appears in the form: 

.NOT. L 

The value of the expression is examined. If the value is equal to plus zero, the 
logical espression has the value false. All other values are considered true. 

The hierarchy of logical operations is: 



First 


.NOT. 


or 


.N. 


then 


AND. 


or 


A. 


then 


.OR. 


or 


.O. 



A logical variable, logical constant, or a relational expression is, in itself, a 
logical expression. If L^, L2are logical expressions, then the following are 
logical expressions: 

.NOT.L 
L .AND.L 
L^.OR.L^ 

If L is a logical e3q)ression, then (L) is a logical expression. 

If Lj, L2 are logical expressions and op is .AND. or .OR., then L- op op L is 
never legitimate. 
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.NOT. may appear in combination with .AND. or .OR. only as follows: 

L. .AND. .NOT.L 

J. ^ 

T r»iD Tjnn^ t 

L .AND.(.NOT. ••• ) 

L^ .OR. (.NOT. •• • ) 
1 ^ 

.NOT. may appear with itself only in the form .NOT.(.NOT.(.NOT. L) ) 
Other combinations cause compilation diagnostics. 

If L-, , Lo are logical expressions, the logical operators are defined as follows: 

.NOT.L is false only if L is true 

L .AND.L is true only if L , L^ are both true 

L .OR.L is false only if L , L are both false 

Examples: 

1) B-C^A^B + Cis written 
B-C.LE.A.AND.A.LE.B+C 

2) FICA greater than 176.0 and PAYNMB equal to 5889.0 is written 
FICA.GT.176.0 .AND. PA YNMB.EQ .5889.0 

3) An expression equivalent to the logical relationship (P —»- Q) may be 
written in two ways: 

.NOT. (P. AND. (. NOT .Q) ) 
.N.(P.A.(.N.Q) ) 

3.4 

MASKING 

EXPRESSIONS The masking expression is a generalized form of the logical expression in 

which the variables may be types other than logical. 

In a FORTRAN masking expression, 60-bit logical arithmetic is performed 
bit -by-bit on the operands within the expression. The operands may be any- 
type variable, constant, or expression. No mode conversion is performed during 
evaluation. If the operand is complex, operations are performed on the real 
part. Although the masking operators are identical in appearance to the logical 
operators, their meanings are different. They are listed according to hierarchy. 
The following definitions apply: 

.NOT. or .N. complement the operand 

.AND. or .A. form the bit -by -bit logical product of two operands 

.OR. or .0. form the bit -by-bit logical sxmi of two operands 
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The operations are described below: 



£ 


V 


^ 


.AND. 


_v 


R. 


.OR. V 


.NOT. p 


1 


1 




1 






1 





1 














1 








1 











1 


1 




















1 



Let B. be masking expressions, variables or constants of any type except 
logical. The following are masking expressions: 

.NOT. B. B. JiND. B- B_ .OR. B_ 
11 A i. ^ 

If B is a masking expression, then (B) is a masking expression. 

.NOT. may appear with .AND. or .OR. only as follows: 

J\ND. .NOT. 



.KJSX. .i\%-»X. 

J^ND. (.NOT. ' ' ■) 
.OR. (.NOT. * * *) 

Masking expressions of the following forms are evaluated from left to right. 

A .AND. B J^ND. C . . . 
A .OR. B .OR. C . . . 

Arithmetic expressions appearing in maskii^ statements must be enclosed in 
parentheses, e.g. E=(E*100B),OR.F. 

Examples: 

A 77770000000000000000 octal constant 

D 00000000777777777777 octal constant 

B 00000000000000001763 octal form of integer constant 

C 20045000000000000000 octal form of real constant 

.NOT. A is 00007777777777777777 
A J^ND. C is 20040000000000000000 
A .AND. .NOT. C is 57730000000000000000 
B .OR. .NOT. D is 77777777000000001763 
The last expression could also be written as B .O. .N. D 
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REPLACEMENT STATEMENTS 



4.1 

ADjTU.METIC 

REPLACEMENT 



The general form of the arithmetic replacement statement is A = E, where E 
is an arithmetic expression and A is any variable name, simple or subscripted. 
The operator = means that A is replaced by the value of the evaluated expression, 
E, with conversion for mode if necessary. 



Examples: 

A = -A 

B(J,4) =CALC(I+l)*BETA+2.3478 
39 XTHETA=7.4*DELTA+(A(I,J,K)**BETA) 

RESPSNE=SIN(ABAR(INV+2,JBAR)/ALPHA(J,KAPL(I) ) ) 
4 JMAX=19 

AREA = SIDEl * SIDE2 
PERIM = 2.*(SIDE1 + SIDE2) 



4.2 

MIXED-MODE 

REPLACEMENT 



The type of an evaluated expression is determined by the type of the dominant 
operand. This, however, does not restrict the types that identifier A may 
assimie. A complex expression may replace A, even if A is real. The following 
chart shows the A = E relationship for all the standard modes. The mode of A 
determines the mode of the statement. 

When all the operands in the expression E are logical, the expression is evalu- 
ated as if all the logical operands were integers . 

For example, if L-j^, Lq, L3, L^ are logical variables, R is a real variable, and 
I is an integer variable^ then I = L]^*L2 + L3 - L4 is evaluated as if the L^ were 
all integers and the resulting value is stored as an integer in I. 

R = 1,-1*1^2+ 1^2 ~ ^4: ^^ evaluated as stated above, but the result is converted to 
a real (a floating point quantity) before it is stored in R. 

When a mode conversion is made from real, double precision, or complex to 
integer and the real number (or the real portion of the complex number) is in 
the range -1<R<0 the following conversion is made: 
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Real Value Resulting Integer 

-l<R<-(2-l'^) -0 

-(2~'^^)^R<0 



Type of 
A 


Type of Expression E 


Complex 


Double 
Precision 


Real 


Integer 


Complex 


A = E 


Set A = most 
significant half 
of E 

A , - E 
real 

A. =0 
image 


A = E 
real 

A. =0 
imag 


Convert E 
to Real 

A = E 
real 

A. = 
imag 


Double 
Precision 


A = E 

real 

less signifi- 
cant is set 
to zero 


A = E 


A - E 

less signifi- 
cant is set 
to zero 


Convert E 
to Real 

A = E 

less signifi- 
cant is set 
to zero 


Real 


A = E , 
real 


Set A = most 
significant half 
of E 

A = E 


A = E 


Convert E 
to Real 

A = E 


Integer 


Truncate 

E , to 
real 

Integer 
A = E 


Truncate E 
to 48 bit 
integer 

A = E 


Truncate E 
to Integer 

A - E 


A - E 


Logical 


HE , f 
real 

0,A = 1 

If E , = 
real 

0,A = 


If E^O, 
A = l 

If E = 0, 
A = 


If E 7^0, 
A = 1 

If E = 0, 
A = 


If Et^ 0, 
A = 1 

If E = 0, 
A = 
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Examples: 






Given: 


C..A_ 
i' i 


Complex 




°i'^2 


Double 




R.,A3 


Real 




^i'^ 


Integer 




LoA^ 


Logical 



1. A = C *C - C /C (6.905, 15.393) =(4.4, 2.1)* 

(3.0, 2.0) -(3.3, 6.8)7(1.1, 3.4) 

The expression is complex; the result of the expression is a two-word, 
floating point quantity. Aj^ is complex, and the result replaces A^. 

2. A = C 4.4000+000 = (4.4,2.1) 

The expression is complex. Ag is real; therefore, the real part of C]^ re- 
places Ao. 

3. A = C *(0. ,-1.) 2.1000+000 = (4.4,2.1)* 

^ ^ (0. ,-1.) 

The expression is complex. A3 is real; the real part of the result of the 
complex multiplication replaces A3. 

4. A -R /R *(R -R )+T - 13=8.4/4.2*(3. 1-2.1)+ 

(I:*R:) -^ ^ 1 14-(1*2.3) 

2i 5 

The expression is real. A^ is integer; the result of the expression evalua- 
tion, a real, is converted to an integer replacing A^. 

5. A =D **2*(D +(D *D ) ) 4.96800000000000+001= 

+(D *D *D ) 2.0D**2*(3.2D+(4.1D*1.0D) ) 

+(3.2D*2.0D*3.2D) 

The expression is double precision. A2 is double precision; the result of 
the expression evaluation, a double precision floating quantity, replaces Ag. 

6. A^=C*R-R„+L l=(4.4,2.1)*8.4-4.2+14 

5 112 1 

The expression is complex. Since Ag is logical, the real part of the evalu- 
ated expression replaces Ag. If the real part is zero, zero replaces A5. 



60174900 Rev. C 4-3 



4.3 

LOGICAL 

REPLACEMENT 



4.4 

MASKING 

REPLACEMENT 



The general form of the logical replacement statement is L = E, where L is a 
logical variable and E may be a logical, relational, or arithmetic expression: 



Examples : 



2109 



LOGICAL A, B, C, D, E, LGA, LGB, LGC 

REAL F, G, H 

A = B .AND. C .AND. D 

A = F .GT. G .OR. F .GT. H 

A = .N. (A.A. .N. B) .AND. (C.O.D) 

LGA = .NOT. LGB 

LGC = E .OR. LGC .OR. LGB .OR. LGA .OR. (A .AND. B) 



The general form of the masking replacement statement is M = E. E is a 
masking expression, and M is a variable of any type except logical. No mode 



r>r»n\r<iT'air»n la moHo r?nT>-inar i-Via -roi-*! o oom ont 



Examples: 



INTEGER I,J,K,L,M,N(16) 
REAL B,C,D,E,F(15) 



4.5 

MULTIPLE 

REPLACEMENT 



N(2) = I .AND. J 
B = C .AND. L 
84 F(J) = I .OR. .NOT. L .AND. F(J) 

N(l) =I.O.J.O.K.O.L.O.M 
I = .N.I 
D = (B.LE.C) .AND. (C .LE. E) .AND. .NOT. I 

Expressions of the form 
A=B=C=D=3.0*X 

are permissible and result in code which is equivalent to the expressions: 

D=3.0*X 

C=D 

B-C 

A=B 
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TYPE DECLARATIONS AND STORAGE ALLOCATION 



5.1 

TYPE 

DECLARATION 



The type declaration statement provides the compiler with information on the 
structure of variable and function identifiers . 



Statement 

COMPLEX list 

DOUBLE PRECISION list 
or DOUBLE list 

REAL list 

INTEGER list 

LOGICAL list 



Characteristics 



2 words/element 
2 words/element 

1 word/ element 
1 word/element 
1 word/element 



Floating Point 
Floating Point 

Floating Point 

Integer 

Logical 



TYPE may precede any of the above statements. 



DOUBLE may replace DOUBLE PRECISION in any FORTRAN statement 
in which the latter is allowed. 

List is a string of identifiers separated by commas; integer constant subscripts 
are permitted. For example: 

A, Bl, CAT, D36F, GAR (1, 2, 3) 

The type declaration is non -executable and must precede the first reference 
to the variable or function in a given program. If an identifier is declared in 
two or more type declarations, the first declaration holds until the second is 
read, the second holds until the third, etc. However, the second and ensuing 
declarations will result in informative diagnostics. 

An identifier not declared in a type declaration is type integer if the first letter 
of the name is I, J, K, L, M, N; for any other letter, it is type real. 

When subscripts appear in the list, the associated identifier is the name of an 
array, and the product of the subscripts determines the amount of storage to 
be reserved for that array. By this means, dimension and type information 
are given in the same statement. In this case no DIMENSION statement is 
needed; in fact it is not allowed. 
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Examples: ^ 

COMPLEX A412,DATA,DRIVE,IMPORT 

DOUBLE PRECISION PLATE,ALPHA(20,20),B2MAX,F60,JUNE, 

REAL I,J(20,50,2),LOGIC,MPH 

INTEGER GAR(60),BETA,ZTANK,AGE,YEAR,DATE 

LOGICAL DISJ,IMPL,STROKE,EQUIV,MODAL 

DOUBLE RL,MASS (10,10) 

5.2 

DIMENSION 

DECLARATION A subscripted variable represents an element of an array of variables. Storage 

is reserved for arrays by the non-executable statements DIMENSION, COMMON, 

or a type statement. 

The standard form of the DIMENSION declaration is: 

DIMENSION V , V- , . . . ,v 
12 n 

The variable names Vj may have 1, 2, or 3 integer constant subscripts separated 
by commas, as in SPACE (5, 5, 5). Under certain conditions within subprograms 
only, the subscripts may be constants or variables. 



Example: 

DIMENSION A(10) , B(20 , 3) 



The DIMENSION declaration is non-executable and it must precede the first 
reference to the array in a given program. The DIMENSION statement should 
precede the first executable statement and will result in an informative 
diagnostic otherwise. 

The number of computer words reserved for an array is determined by the 
product of the subscripts in the subscript string and the type of the variable. 
A maximum of 2-'^'^-l elements may be reserved in any one array. If the 
maximum is exceeded, a diagnostic is provided. 

COMPLEX ATOM 
DIMENSION ATOM (10,20) 

hi the above declarations, the number of elements in the array ATOM is 200. 
Two words arc used to contain a complex element, therefore, the number of 
computer words reserved is 400. This is also true for double precision 
arrays. For real, logical, and integer arrays, the number of words in an 
array equals the number of elements in the array. 
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If an array is dimensioned in more than one declaration statement, the first 
declaration holds and an informative diagnostic is provided. 

Examples: 

DIMENSION k(2(\.2,^ 

DIMENSION MATR[X(10 , 10 , 10) , VECTOR(IOO) , ARRAY(16 , 27) 



5.2.1 

VARIABLE DIMENSIONS 



When an array identifier and some or all dimensions appear as formal para- 
meters in a function or subroutine, the dimensions may be assigned through 
the actual parameter list accompanying the function reference or subroutine 
call. Dimensions must not exceed the maximum array size specified by the 
DIMENSION declaration in the calling program.! 



Example : 



SUBROUTINE X(A, L, M) 
DI MENSIO N A( L , 10 , jVI) 



5.3 

COMMON 

DECLARATION 



The COMMON declaration provides up to 61 blocks of storage that can be 
referenced by more than one subprogram. The declaration reserves blank, 
numbered, and labeled blocks. Starting addresses for these blocks are 
indicated on the core map. 

Areas of common information may be specified by the declaration: 

COMMON/i^/list^/i^/listg. . . 

The common block identifier, i, may be 1-7 characters. If the first character 
is alphabetic, the identifier denotes a labeled common block; remaining charac- 
ters may be alphabetic or numeric. If the first character is numeric, remaining 
characters must be numeric and the identifier denotes a numbered common 
block. Leading zeros in numeric identifiers are ignored. Zero by itself is an 
acceptable numbered common identifier. 



t See Variable Dimensions in Subprograms in Chapter 7, 
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Example: 

COMMON/200/A, B, C 
The following are common identifiers: 

Labeled Numbered 

AZ13 1 

MAXIM 146 

Z 6600 

XEAY 

A common statement without a label, or with just blanks between the separating 
slashes is treated as a blank common block, for example: 

COMMON //A, B,C or COMMON X,Y,Z (5) 

Listj is a strir^ of identifiers represent!!^ simple and subscripted variables; 
formal parameters are not allowed. If a non-subscripted array name appears 
in the list, the dimensions must be defined by a type or DIMENSION declara- 
tion in that program. If an array is dimensioned in more than one declaration, 
a compiler diagnostic is issued. The order of simple variables or array 
storage within a common block is determined by the sequence in which the 
variables appear in the COMMON statements. 

Numbered common is treated as labeled common by the loader. The total of 
labeled and numbered common blocks is limited to 61. Labeled and numbered 
common blocks may be preset; data stored in them by DATA declarations is 
made available to any subprogram using the appropriate block. Data may not 
be entered into blank common blocks by the DATA declaration. 

Examples: 

1. COMMON/BLK/A(3) 
DATA A/1.,2. ,3./ 

2. COMMON/100/I(4) 
DATA 1/4,5,6,7/ 

COMMON is non-executable and can appear anywhere in the program . Any 
number of blank COMMON declarations may appear in a program. If 
DIMENSION, COMMON or type declarations appear together, the order is 
immaterial. 
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Since labeled and numbered common block identifiers are used only within 
the compiler, they may be used elsewhere in the program as other kinds of 
identifiers except subroutine names in the same job. An identifier in one 
common block may not appear in another common block. (If it does, the 
name is doubly defined.) 

At the beginning of program execution, the contents of all common areas are 
unpredictable except labeled common areas specified in a DATA declaration. 

Examples: 



Blank Common 



COMMON A, B, C 

COMMON/ /E,F,G,H j 

COMMON/BLOCKA/Al(15) , Bl, C1/BL0CKD/DEL(5, 2) , ECHO 

COMMON/VECTOR/VECTOR(5) , HECTOR, NECTOR 

COMMON/9999/AX, BX, CX 



The length of a common block in computer words is determined from the number 
and type of the list variables. In the following statements, the length of common 
block A is 12 computer words. The origin of the common block is Q (1). 

COMMON/ A/Q(4), R(4), S(2) 
REAL Q,R 
COMPLEX S 

Block A 



origin 



Q(i) 




Q(2) 




Q(3) 




Q(4) 




R(l) 




R(2) 




R(3) 




R(4) 




S(l) 


real part 


S(l) 


imaginary part 


S(2) 


real part 


S(2) 


imaginary part 



If a subprogram does not use all of the locations reserved in a common block, 
unused variables may be necessary in the COMMON declaration to insure proper 
correspondence of common areas. 
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common/sum/ A, B,C,D (main program) 
C0MM0N/SUM/E(3),D (subprogram) 

In the above example, only the variable D is used in the subprogram. The imused 
variable E is necessary to space over the area reserved by A,B> and C. 

Each subprogram using a common block assigns the allocation of words in the 
block. The identifiers used within the block may differ as to name, type, and 
number of elements; but the block identifier must remain the same. 



Example: 

PROGRAM MAIN 
COMPLEX C 

COMMON/TEST/C(20)/36/A,B,Z 

The length of the block named TEST is 40 computer words. The length of 
the block numbered 36 is 3 computer words . 

The subprogram may rearrange the allocation of words as in: 
SUBROUTINE ONE 
COMMON/TEST/A(10) , G(10) , K(10) 
COMPLEX A 

The length of TEST is 40 words. The first 10 elements (20 words) of the 
block represented by A are complex elements. Array G is the next 10 
words, and array K is the last 10 words. Within the subprogram, ele- 
ments of G are treated as floating point quantities; elements of K are 
treated as integer quantities. 

The length of a common block other than blank common must not be increased 
by subprograms using the block xmless that subprogram is loaded first by the 
SCOPE loader. The symbolic names used within the block may differ, how- 
ever, as shown above. 
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5.4 

EQUIVALENCE 

DECLARATION 



The EQUIVALENCE declaration permits variables to share locations in 
storage. The general form is: 



iu<^UlVALJiN(J±J (A, i3, ...), (Al , i3l ,...),.. . 

(A, B, . . . ) is an equivalence group of two or more simple or subscripted 
variable names; formal parameters are not allowed. A multiply subscripted 
variable can be represented by a singly subscripted variable. The corres- 
pondence is: 

A(i,j,k) is the same as A ((the value of (i+(j-l)*I+(k-l)*I*J))*E) 

where E is 1 or 2 depending on A's word length, i, j, k are integer constants; 
I and. J are the integer constants appearing in DIMENSION A(I, J, K) . For 
example, in DIMENSION A(2,3,4), the element A(l,l,2) can be represented 
byA(7). 

EQUIVALENCE is most commonly used when two or more arrays can share 
the same storage locations. The lengths need not be equal. 

Example : 

DIMENSION A(10, 10) ,1(100) 
EQUIVALENCE (A, I) 

5 READ 10, A 

6 READ 20 I 

The EQUIVALENCE declaration assigns the first element of array A and array I 
to the same storage location. The READ statement 5 stores the A array in 
consecutive locations. Before statement 6 is executed, all operations using A 
should be completed since the values of array I are read into the storage 
locations previously occupied by A. 

Variables requiring two memory positions which appear in EQUIVALENCE 
statements must be declared to be COMPLEX or DOUBLE prior to their 
appearance in such statements. 
Example: 

COMPLEX DAT, BAT 

DIMENSION DAT(10,10),BAT(10,10),CAT(10,10) 

DOUBLE PRECISION CAT 

C0MM0N/IFAT/FAT(2,2) 

EQUIVALENCE (DAT (2, 1), FAT (2, 2) ), (CAT, BAT) 
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EQUIVALENCE is non-executable. The order of FORTRAN statements 
recommended is that all specification statements appear before the executable 
statements, and the EQUIVALENCE statement appears as the last specifica- 
tion statement. 

An element is brought into common if it is equivalenced to an element in 
common. If an element of an array is equivalenced to an element in common 
the entire array is brought into common. Two elements in common must not 
be equivalenced to each other. The following examples illustrate changes in 
block lengths caused by the EQUIVALENCE declaration. 

Given: Arrays A and B 

Sa subscript of A 
Sb subscript of B 

Examples: 

A and C in common, B not in common 

Sb ^ Sa is a permissible subscript arrangement 
Sb > Sa is not 

Block 1 

origin 



A(l) 




COMMON/l/A(4),C 


A(2) 


B(l) 


DIMENSION B(5) 


A(3) 
A(4) 


B(2) 
B(3) 


EQUIVALENCE (A(3),B(2)) 


C 


B(4) 
B(5) 





The design of this compiler prevents the following use of EQUIVALENCE 

DIMENSION FAT(6) 
COMMON/I FAT /SKINNY 
EQUIVALENCE (SKINNY, FAT (n)) 

The latter statement will be flagged fatally if n > 1, 



5-8 60174900 Rev. F 



5.5 

DATA 

DECLARATION Values may be assigned to program variables or labeled common variables 

with the DATA declaration: 

T\ A rrt A ^ Air, ir^n n / A A l n r. / 

1 nl2 nl nl n 

d. identifiers representing simple variables, array names, or 
variables with integer constant subscripts or integer variable 
subscripts (implied DO-loop notation) , 

a. literals and signed or unsigned constants. 

k integer constant repetition factor that causes the literal 

following the asterisk to be repeated k times. If k is non- 
integer, a compiler diagnostic occurs. 

A semicolon cannot be used in the character string of data entered under 
L, E or H control. 

Data is non -executable and can appear anywhere in the program or sub- 
program. When DATA appears with DIMENSION, COMMON, EQUIVALENCE, 
or a type declaration, the statement that dimensions any arrays used in the 
DATA statement must appear prior to the DATA statement. Variables in 
blank common or formal parameters may not be preset by a DATA declaration. 

Only sii^le-subscript, DO-loop-implyii^ notation is permissible. This 
notation may be used for storing constant values in arrays. 

Examples: 

1. DIMENSION GIB(IO) 

DATA(GIB(I), 1=1, 10) A., 2. ,3., 7*4. 32/ 

Array GIB: 1. 
2. 
3. 

4.32 
4.32 
4.32 
4.32 
4.32 
4.32 
4.32 
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2 . DIME NSION TWO( 2 , 2) 

DATA TW0(1, 1) , TWO(l, 2) , TWO(2, 2) , TW0(2, l)/l . , 2. , 3. , 4. / 



Array TWO: TWO(l,l) 
TWO(2, 1) 
TW0(1,2) 
TWO(2,2) 


1, 

4. 
2. 
3. 




E NSION SINGLE (3, 2) 

'A (SINGLE(I),I=1,6)/1. ,2. , 


3.,1. 


,2. ,3./ 


Array SINGLE: SINGLE(1,1) 

SINGLE(2,1) 
SINGLE (3,1) 
SINGLE(1,2) 
SINGLE (2, 2) 
SINGLE (3. 2) 


1. 
2. 
3. 
1. 
2. 
3, 



In the DATA declaration, the tj^e of the constant stored is determined by the 
structure of the constant rather than by the variable type in the statement. In 
DATA A/2/, an integer 2 replaces A, not a real 2 as might be expected from 
the form of the symbolic name A. 

There should be a one-one correspondence between the variable names and the 
list. This is particularly important in arrays in labeled common. For instance: 

COMMON/BLK/A(3) , B 
DATA A/1., 2., 3., 4./ 

The constants 1. ,2. ,3. , are stored in array locations A,A+l,A+2; the 
constant 4. is discarded, B is immodified and an error is issued. If this 
occurs unintentionally, errors may occur when B is referred to elsewhere 
in the program. 

COMMON/TUP/ C(3) 
DATA C/1. ,2./ 

The constants 1. , 2. are stored in array locations C and C+1; 
the content of C(3), that is, location C+2, is not defined. 

When the number of list elements exceeds the range of the implied DO, the 
excess list elements are not stored, and a diagnostic is issued. 

DATA (A(I), 1=1, 5, 1)/1. ,2 ,10./ 

The excess values 6. through 10. are discarded. 
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Examples: 



±) ur\.i.r\ j_ijiiju»n., K^n.i3 i.KJsx, jrv^j^j-iU-^v -L<-> j-LU .u ,0'±.u/ 



LEDA 



15 



CASTOR 



16.0 



POLLUX 

2) DATA A(l,3)/16.239/ 
ARRAY A 
A(l,3) 



84.0 



16.239 



3) DIMENSION B(10) 

DATA B/ 0000077, 0000064, 3*0000005, 5*0000200/ 



ARRAY B 



4) COMMON/ HERA/ C(4) 

DATA C/3.6, 3*10.5/ 
ARRAY C 



077 

064 

05 

05 

05 

O200 

O200 

O200 

O200 

O200 



3.6 
10.5 
10.5 
10.5 
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5) COMPLEX PROTER (4) 

DATA PR0TER/4*(1. 0,2.0)/ 

ARRAY PROTER 1.0 

2.0 
1.0 
2.0 
1.0 
2.0 
1.0 
2.0 

6) DIMENSION MESAGE (3) 

DATA MESAGE/9BSTATEMENT,2HIS,10fflNCOMPLETE/ 
ARRAY MESAGE STATEMENT 

INCOMPLETE 

Data declaration statements of the following forms may also be used to assign 
constant values to program or common variables at load time. 

DATA (i^^alue list), (i =value list), . . . 

DATA (i(j,k,l)=value list), ... 

j, k, 1 are integer constants. 
The variable identifier, i, may be: 

non-subscripted variable 

array variable with constant subscripts 

array name 

array variable with integer variable quantifiers 

The value list is either a single constant or set of constants whose number is 
equal to the number of elements in the named array . 

List contains constants only and has the form: 

a^,a.^, • . . M^-^,\, • • ■)>^i'<^2' ' ' ' 

k is an integer constant repetition factor that causes the parenthetical list 
following it to be repeated k times . If k is non-integer a compiler diagnostic 
is provided. 
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Examples : 

COMMON/ DATA/ GIB 

DATA ( (GIB(I), I=l,10)=l. , 2. , 3. , 7(4.32) ) 

DATA (ROBIN(4,3,2)=16.) 

5.5.1 

BLOCK DATA 

SUBPROGRAM A block data subprogram may be used to enter data into labeled or numbered 

common prior to program execution in place of a DATA declaration and it 
may appear more than once in a FORTRAN program. If more than one 
BLOCK DATA subprogram is compiled, the user-supplied name is used to 
identify the binary records. If no name is specified, however, the binary 
records are named BLKDAT A, BLKDAT B, BLKDAT C, . . . Also if seg- 
mentation is used, the SEGMENT card must specify which block data binary 
record is to be used. 

BLOCK DATA n 

FORTRAN declaration statements only 

END 

Where n is blank or any acceptable alphanumeric identifier beginning with a 
letter, all elements in the common blocks must appear in a COMMON declara- 
tion in the subprogram even if they are not in the DATA declaration. 

Examples : 

1) BLOCK DATA 
COMMON/ABC/A (5) , B, C/DEF/D, E, F 
COMPLEX D,E 

DOUBLE PRECISION F 

DATA (A(L),L=l,5)/2.3,3.4,3*7.1/,B/2034.756/,D,E,F/2*(1.0,2.5), 
17.86972415872D30/ 
END 

2) BLOCK DATA HOODAR 
COMMON /DEF/G, H, I 



END 
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CONTROL STATEMENTS 



Program execution normally proceeds from one statement to the statement 
immediately following it in the program. Control statements can be used to 
alter this sequence or cause a number of iterations of a program section. 

Control may be transferred to an executable statement only; a transfer to a 
non-executable statement results in a fatal diagnostic . 



6.1 

GO TO 

STATEMENTS 



6.1.1 

UNCONDITIONAL 
GO TO 



Program control is transferred to a statement other than the next statement in 
sequence by the GO TO statements. 



GO TO n 

An unconditional transfer is made to the statement labeled n. 



6.1.2 

ASSIGNED GO TO 



GO TO m, (n^,n2, . . . ,n^) 
GO TO m 



This statement acts as a many -branch GO TO; m is a simple integer variable 
assigned an integer value n in a preceding ASSIGN statement. The n^ are 
statement labels. As shown, the parenthetical statement label list need not 
be present. 

The comma after m is optional ; however , when the list is omitted, the comma 
must be omitted, m cannot be defined as the result of a computation. No 
compiler diagnostic is given if m is computed, but the object code is incorrect. 
If an assignment has not been made for an assigned GO TO statement and m is 
equal to zero, a diagnostic is provided at object time. If m is non-zero, 
a valid assignment is assumed. FOETEAN does not preset all locations to 
zero. 



6.1.3 

ASSIGN STATEMENT 



ASSIGN s TO m 

This statement is used with the assigned GO TO statement; s is a statement label, 
m is a simple integer variable. 
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Example: 

ASSIGN 10 TO I^WTCH 

GO TO ISWTCH, (5,10,15,20) 
Control transfers to statement 10. 



6.1.4 

COAAPUTED GO TO GO TO (n^,n^, . . . ,n ),i 

1 ^ m 



This statement acts as a many-branch GO TO; i is preset or computed prior 
to its use in the GO TO. 

The nj are statement labels and i is a simple integer variable. If i < 1 or if 
i > m, the transfer is undefined and an object time diagnostic will be issued 
indicating the point at which the error was detected. If 1 ^ i ^ m, the transfer 
is to nj. 

The comma separating the statement number list and the index is optional. 



Example: 
N=3 

GO TO (100,101,102,103) N 

Statement number 102 will be the selected control transfer. 

For proper oi)erations, i must not be specified by an ASSIGN statement. No 
compilation diagnostic is provided for this error, but the object code is in- 
correct. 

Example: 

ISWICH = 1 

GO TO (10,20,30), ISWICH 

1 JSWICH = ISWICH + 1 

GO TO (11,21,31), JSWICH 
Control transfers to statement 21. 
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6.2 

IF STATEMENTS 



Program control is transferred to a statement depending upon the condition of 
the computed results of the IF statements. 



6.2.1 

THREE-BRANCH 
ARITHMETIC IF 



IFCOn^.n^.n^ 

c is an arithmetic expression, and the n^^ are statement labels. This statement 
tests the evaluated expression c and jumps accordingly as follows: 



c < jiunp to statement n 

c = jump to statement n 
c > jump to statement n^ 



6.2.2 

ONE-BRANCH 
LOGICAL IF 



In the test for zero, +0 = -0. When the mode of the evaluated expression is 
complex, only the real part is tested. 

IF(A*B-SINF(X) ) 10,20,10 
IF (1)5,6,7 
402 IF (A/B ** 2) 3, 6, 6 



IF (£) s 

£ is a logical expression and s is any executable statement except another 
logical IF, a DO statement or an END. If f is true (not plus zero), the 
statement s is executed. If £ is false (plus zero) the statement immediately 
following the IF statement is executed. 

IF(A.LE.2.5) A=2.0 

IF (VALUE*4. 73. GT. PEICE.OR.VALUE.lt. 150. 0)BUY=.TBUE. 

IF(P.AND.Q)GOTO 427 



6.2.3 

TWO-BRANCH 
LOGICAL IF 



IF ijD n^.n^ 



£ is a logical expression; n^ are statement labels. 

The evaluated expression is tested for true (not plus zero) or false (plus zero) 
condition. If £ is true, the jump is to statement n-|^. If £ is false, the jump 
is to statement no. 
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Example: 



IF(L)5,6 

5 IF(K.EQ.100)70,60 

6 IF(IJUMP.LT.K)10,11 



6.3 

DO STATEMENT DO n i = m m m 



This statement makes it possible to repeat groups of statements and to change 
the value of an integer variable during the repetition, n is the statement label 
ending the DO loop; i is the index variable (simple integer), m^: are the in- 
dexir^ parameters ; they may be unsigned integer constants or simple integer 
variables no larger than 2l'^-2. m^ is the initial value assigned to i, m2 is 
the terminal value, and m^ is the amount added to i after each time the DO 
loop is executed. If m3 does not appear, it is assigned the value 1. 

The DO statement (statement labeled n) and any intermediate statements 
constitute a DO loop; n may not be an arithmetic IF or GO TO statement, 
a two branch logical IF, a RETURN, another DO statement or a nonexe- 
cutable statement. 

The indexing parameters mj^.mg.m are either unsigned integer constants or 
simple integer variables. Subscripted variables and negative or zero integer 
constants cause a diagnostic. 

The indexing parameters m and m , if variable, may assume positive or 
negative values or zero. 

The values of m , m , and m may be changed during the execution of the 
DO loop. 

Examples: 

1. DO 25 1=1, 100 
25 A(I)=A(I)+B(I) 

The index variable I is incremented by one for each cycle until the DO 
loop is executed 100 times. The control is then transferred to the state- 
ment immediately following statement 25. 

2. DO 12 1=1,10,2 
J=l+K 
X(J)=Y(J) 

12 CONTINUE 
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I is set to the initial value of one and incremented by two on each of 
the following cycles. When the execution of the fifth cycle (1=9) is 
completed, control passes out of the DO loop. 



6.3.1 

DO LOOP 
EXECUTION 



The initial value of i, m-|^, is increased by m3 and compared with m2 after 
executing the DO loop once, and if i does not exceed m2, the loop is executed 
a second time. Then, i is again increased by m^ and again compared with 
m2; this process continues until i exceeds m2. Control then passes to the 
statement immediately following n, and the DO loop is satisfied. 



Should m 2^ exceed m 2 on the initial entry to the loop, the loop is executed once 
and control is passed to the statement following n. When the DO loop is 
satisfied, the index variable i is no longer well defined. If a transfer out of 
the DO loop occurs before the DO is satisfied, the value of i is preserved 
and may be used in subsequent statem-ents. 



6.3.2 

DO NESTS 



When a DO loop contains another DO loop, the grouping is called a DO nest. 
Nesting may be to any level. The last statement of a nested DO loop must eithei 
be the same as the last statement of the outer DO loop or occur before it. If 
T>1 ,D2 , . . .Djjj represent DO statements where the subscripts indicate that D^ 
appears before Dg, D2 appears before D3 and n]^,n2, . . . .n^j^ represent the 
corresponding limits of the Di, then n^^^ must appear at or before n^j^.]^. 



I— D. 



D. 



r-D„ 



' — n. 
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Examples: 

DO loops may be nested in common with other DO loops : 



I— D. 



r— D, 



•— n. 



C 

•— n. 



t— D. 



r— D. 



»— n„ 



2 
*2 

'3 



-D„ 



■D, 



^^2=^3 



DO 1 1=1,10,2 DO 100 L=2, LIMIT 



DO 2 J=l,5 



DO 3 K=2,i 



3 CONTINUE 



2 CONTINUE 



DO 10 1=1,10 
DO 10 J=l,10 



10 CONTINUE 



DO 20 K=K1,K2 



20 CONTINUE 



DO 5 1=1,5 
DO 5 J=I,10 
DO 5 K=J,15 



5 A = B^ 



DO 4 L=l,3 



100 CONTINUE 



4 CONTINUE 



1 CONTINUE 
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6.3.3 

DO LOOP TRANSFER 



In a DO nest, a transfer may be made from one DO loop into a DO loop that 
contains it, but should not be made from the outer DO loop to the Inner DO 
loop without first executing the DO statement of the inner DO loop. 




Not Allowed 



Allowed 



One exception is allowed: once the DO statement has been executed and 
before the loop is satisfied, control may be transferred out of the DO range 
to perform some calculation and then transferred into the range of the DO. 

Certain problems arise if the transfer from outside the range is to the 
terminal statement of the DO. A statement number terminating a DO loop 
not previously referenced except in a DO statement is ignored. A later 
reference to such a statement number causes a missing statement number 
indication. The statement number does not appear in the statement assign- 
ments list. 

Examples 1 and 2 are permissible sets of statements, however, example 3 
is not allowed. 
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Examples: 



1) 



K=0 

DO 3 1=1,10 

IF (K)3,2,3 
2X=1 

GOTO 1 
3 CONTINUE 
1 Y=M*X+B 

GO TO 3 



(statement number 3 is referenced prior 
to the end of the DO loop) 



2) 



GO TO 2 

1 Y=M*X+B 
GO TO 3 

2 DO 3 1=1,10 
X=I 

GO TO 1 

3 CONTINUE 



(statement number 3 is referenced prior 
to the end of the DO loop) 



3) 



2 DO 3 1=1,10 
X=I 

GO TO 1 

3 CONTINUE 
1 Y=M*X+B 

GO TO 3 



(illegal) 



(statement number 3 is not referenced 
prior to the end of the DO loop) 



If more than one DO loop has the same terminal statement, the execution 
of the statements is properly satisfied only if the transfer occurred from 
the innermost DO. 
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Examples : 

1) This example is acceptable since the statement GO TO 2 occurs 
from the innermost DO loop. 

GO TO 3 

2 A(I)-A(1)+B(I,J) 
GO TO 1 

3 DO 1 1=1, M 
A(I)=0 

DO 1 J=1,N 
GO TO 2 
1 CONTINUE 

2) This example is not acceptable since the statement GO TO 3 does 
not occur from the innermost DO loop. 

3 IF (A (I)) 2, 5,5 (statement number 2 causes index to 

DO 2 1=1, M increment for inner DO loop, but not 

GO TO 3 for the outer DO) 

5 DO 2 J=1,N 

1 A(I)=A(I)+B(I,J) 

2 CONTINUE 

3) This example is acceptable since statement number 3 is in the 
range of the DO for I index and not in the range of the DO for 
J index. 

4IF(A(1))3,5,5 

DO 3 1=1, M 

GO TO 4 
5 DO 2 J=1,N 

1 A(1)=A(I)+B(I,J) 

2 CONTINUE 

3 CONTINUE 

For the above examples, the terminal statement number of the DO loops must 
be referenced prior to the DO statement as a later reference to such a state- 
ment number produces a message indicating a missing statement number. 
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6.4 

CONTINUE 

STATEMENT 



6.5 

PAUSE 

STATEMENT 



n CONTINUE 

The CONTINUE statement is most frequently used as the last statement of a 
DO loop to provide a loop termination when a GO TO or IF would normally be 
the last statement of the loop. If CONTINUE is used elsewhere in the source 
program it acts as a do-nothing instruction and control passes to the next 
sequential program statement. The CONTINUE statement must contain a 
statement label n in column 1-5. 



PAUSE 
PAUSE n 



n ^ 5 octal digits without an O prefix or B suffix. PAUSE n stops program 
execution with the words PAUSE n displayed as a dayfile message. An 
OHeiator eUi.y from the console can continue or terminate the program 
Program continuation proceeds with the statement immediately following 
PAUSE . If n is omitted, it is understood to be blank. 



6.6 

STOP STATEMENT 



STOP 
STOPn 



6.7 

RETURN 

STATEMENT 



n - 5 octal digits witiiout an O prefix or B suffix. When a STOP n statement 
is encountered, n is displayed in flie dayfile, program execution is terminated 
and control is returned to the operating system. If n is omitted, it is 
assumed to be blank. 



A subprc^ram normally contains one or more RETURN statements to indicate 
the end of logic flow within the subprogram and return control to the calling 
program. ctinug 

to function subprograms, control returns to the statement containing the 
function reference. In a subroutine subprogram, control returns to the next 
executable statement following the CALL. A RETURN statement in the main 
program causes an exit to the operating system. 
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6.8 

END STATEMENT END must be the final statement in a program or subprogram. It is 

executable in the sense that it effects termination of the program. The 

END statement may not be numbered. 
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PROGRAM, FUNCTION, AND SUBROUTINE 



A FORTRA.N program consists of a main program with or without subprograms. 
Subprograms are of two kinds: subroutine and function. In the following 
discussions, the term subprogram refers to both. Subprograms may be 
compiled independently of the main program. 



7.1 

PROGRAM 

COMMUNICATION 



The main program and subprograms communicate with each other via 
parameters and COMMON variables. Subprograms may call or be called by 
any other subprogram as long as the calls are nonre cursive; that is, if 
program A calls B, B may not call A. A calling program is a main program 
or subprogram that refers to another subprogram. A subroutine referenced 
by a program may not have the same name as the program. 



7.2 

SUBPROGRAM 

COMMUNICATION 



Subprograms , functions , and subroutines use parameters as one means of 
communication. The parameters appearing in a subroutine call or a function 
reference are actual parameters . The corresponding arguments appearing 
with the program, subprogram, statement fimction, or library function name 
in the definition are formal parameters. One or more of the formal parameters 
or common variables can be used to return output to the calling program. 



7.3 

FORMAL 

PARAMETERS 



Formal parameters may be the names of arrays , simple variables , librarj' 
functions , and subprograms . Since formal parameters are local to the sub- 
program containing them, they may be the same as names appearing outside 
the procedure. 



No element of a formal parameter list may appear in an EQUIVALENCE or 
DATA statement within the subroutine. If it does, a compiler diagnostic results. 

When a formal parameter represents an array, it must be dimensioned within 
the subprogram. If it is not declared, the array name must appear without 
subscripts and only the first element of the array is available to the subprogram. 



60174900 Rev. C 



7-1 



7.4 

ACTUAL 

PARAMETERS Permissible forms: 



AritiiiBetic expression 

Lc^cal expression 

Constant 

ample or subscripted variable 

Array name 

FUNCTION subprogram name 

Library function and subroutine name 

SUBROUTINE name 

A calling program statement label, identified by suffixing the label 
with the character S. This form should be used only when calling 
DUMP or PDUMP. 

A function name or a function reference may be used as an actual parameter. 
The function reference is a special case of an arithmetic expression. 

Actual and formal parameters must agree in order, type and number. 



I/O buffer names may not be used as actual parameters but the following 
is allowed: 



PROGRAM MAIN (OUTPUT, TAPE 6 = OUTPUT) 



X=50 



END 

SUBROUTINE SUB(I,B) 



WRITE (1, 100)B 



END 
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7.5 

MAIN PROGRAM The first statement of a main program should be one of the following 
forms where name is a 1-7 character symbolic name. The parameter 
list is optional on all forms. If the first card of a program is not one 
of the following forms, a PROGRAM with name of START, and files of 
INPUT, OUTPUT, are assumed. If more files than INPUT, OUTPUT are 
necessary, a PROGRAM card is required. 

For compilation in FORTRAN IV mode: 

PROGRAM name (fi, . . . ,fn) 



Parameters f . represent the names of all input/output files required by the 
main program and its subprograms; n must not exceed 50. Although these 
parameters may be changed at execution time; at compile time, they must 
satisfy the following conditions: 

1. The file name INPUT (references standard input unit) must appear 

if any READ statement is included in the program or its subprograms. 

2. The file name OUTPUT (references standard output unit) must 
appear if any PRINT statement is included in the program or its 
subprograms. OUTPUT is required for obtaining a listing of 
execution diagnostics. 

When logical file numbers are made equivalent to INPUT or OUTPUT, 
file names INPUT and OUTPUT must be declared in the PROGRAM 
statement card. 

Example: 

PROGRAM X (INPUT,OUTPUT,TAPE5=INPUT,TAPE6=OUTPUT) 

3. The file name PUNCH must appear if any PUNCH statement is included 
in the program or its subprograms. 

4. The file name TAPE i, must appear if a READ INPUT TAPE i, 
WRITE OUTPUT TAPE i, READ TAPE i, WRITE TAPE i, READ(i,n), 
WRITE (i,n), READ (i), or WRITE (i) statement is included in the 
program or its subprogram, (i is an integer.) 

5. If I is an integer variable name for a READ INPUT TAPE I, WRITE 
OUTPUT TAPE I, READ TAPE I, WRITE TAPE I, READ (I,n) 
WRITE (I, n) , READ (I) , or WRITE (I) statem.ent which appears in 
the program or its subprograms, the file names TAPE i^^, . . • , 
TAPE ij^ must appear. The integers ij^, . . . , ij^ must include all 
values which are assumed by the variable I. The file name TAPE I 
may not appear in the list of arguments to the main program. 
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File names may be made equivalent and their buffer lengths may be specified 
at compile time. See Appendix J for details on file name handling at execution 
time. 

Example: 

PROGRAM ORB (INPUT, OUTPUT=10000,TAPE1=INPUT,TAPE2=OUTPUT) 

All input normally provided by TAPE 1 would be extracted from INPUT 
and all listable output normally recorded on TAPE 2 would be transmitted 
to the OUTPUT file. OUTPUT=10000 establishes an output buffer length 
of IOOOO3. I^ buffer length is not indicated, a standard buffer size of 
20228 is allocated.! Buffer length may not be less than 1002o words; for 
instance, PROGRAM X(INPUT=20) will cause a buffer of 10028 words to 
be formed. In the list of parameters, equivalenced file names must 
follow those to which they are made equivalent. Their corresponding 
parameter positions may not be changed at execution even though the 
names of the files to which they are made equivalent may be changed at 
that time. 

7.6 

SUBROUTINE 

SUBPROGRAM A subroutine subprogram is a closed loop computational procedure which may 

return none, one or more values. A value or type is not associated with the 

subroutine name itself. 

The first statement of a subroutine subprogram must have the following form: 
SUBROUTINE name (p^^, . . . .p^^) 

name is a 1 to 7 character symbolic name and pi are formal param- 
eters; n may be 1 to 60 

The parameter list is optional. If the parameter list is not specified, the 
following form is allowed: 

SUBROUTINE name 



J. 

• The standard buffer size includes the 213 word file environment table of the 
buffer. 
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7.7 

CALL STATEMENT 



The executable statement in the calling program for referring to a subroutine 
is: 

CALL name 
or 



CALL name (p , 



'V 



name is the name of the subroutine being called, and p^ are actual 
parameters; n is 1 to 60. The name should not appear in any declara- 
tive statement in the calling program , with the exception of the 
EXTEENAL statement when name is also an actual parameter. 

The CALL statement transfers control to the subroutine. When a 
EETUEN statement is encountered in the subroutine, control is re- 
turned to the next executable statement following the CALL statement 
in the calling program. If the CALL statement is the last statement 
in a DO loop, looping continues until the DO loop is satisfied. 



Examples; 



1) SUBEOUTINE BLDX(A, B, W) 
W-2,*B/A 

EETUEN 
END 

Calls 

CALL BLDX(X(I), Y(I),W) 

CALL BLDX(X(I)+H/2. , Y(I)+C(J), PEOX) 

CALL BLDX(SIN(Q5), EVEC(I+J),OVEC(L)) 

2) SUBEOUTINE MATMULT 

COMMON/ITE AEE/X(20 , 20) , Y(20 , 20) , Z (20 , 20) 
DO 10 I = 1,20 
DO 10 J = 1,20 
Z(I,J) =0. 
DO 10 K=l,20 
10 Z(I,J) = Z(I,J) +X(I,K)*Y(K,J) 
EETUEN 
END 
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Operations in MATMULT are performed on variables contained in 
the common block ITEAEE. This block must be defined in all 
calling prc^rams, 

COMMON/ITEAEE/AB(20 , 20) , CD(20, 20) , EF(20 , 20) 

CALL MATMULT 

3) SUBEOUTINE AGMT(SUB, AEG) 

COMMON/ABL/XP(100) 

AEG = 0. 

DO 51 = 1,100 

5 AEG =AEG + XP(I) 

CALL SUB 

EETUEN 

END 

Here the formal parameter SUB is used to transmit another sub- 
program name. The call to subroutine AGMT might be call 
AGMT(MULT, FACTOE), where MULT is specified in an EX- 
TEENAL statement, (section 7.8) 

7.8 

EXTERNAL 

STATEMENT When the actual parameter list which calls a function or subroutine subprogram 

contains a function or subroutine name, that name must be declared in an 

EXTEENAL statement. 

EXTEENAL name ,naine , . . . 

The EXTEENAL statement must precede the first statement of any program 
which calls a function or subroutine subprogram using the EXTEENAL name. 
When it is used, EXTEENAL always appears in the calling program; it may 
not be used with statement functions. If it is, a compiler diagnostic is 
provided. 

Examples: 

1) A function name used as an actual parameter requires an EXTEENAL 
statement , 

Calling Program Eeference 

EXTEENAL SIN 
CALL PULL(SIN, R, Q) 
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Called Subprogram 
SUBROUTINE PULL(X,Y,Z) 

Z=X(Y) 



But a function reference used as an actual parameter does not need 
an EXTERNAL statement. 



Calling Program Reference 
CALL PULL(SIN(R) , Q) 

Called Subprogram 
SUBROUTINE PULL(X, Z) 

Z=X 



END 

2) A subroutine used as an actual parameter must have its name 
declared in an EXTERNAL statement in the calling program, 

COMMON/ABL/ALST(100) 
EXTERNAL RTENTA, RTENTB 
CALL AGMT(RTENTA,V1) 
CALL AGMT(RTENTB, VI) 

When a subprogram name appears as an actual parameter, any 
parameters to be associated with a call of this subprogram must 
appear as separate actual parameters- 
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Example: 

Calling Program 
EXTERNAL ADDER 

CALL SUB (ADDER, A, B) 

Called Subprogram 
SUBROUTINE SUB(X,Y,Z) 

CALLX(Y,Z) 

END 

CALL SUB(ADDER(A, B)) would imply that ADDER is a function 
value, not a subroutine name. 



7.9 

ENTRY STATEMENT The statement provides alternate entry points to a function or subroutine 

subprogram , 

ENTRY name 

Name is a 1-7 character symbolic name, and may appear within the subpro- 
gram only in the ENTRY statement. Each entry name must appear in a 
separate ENTRY statement. The formal parameters, if any, appearing 
with the FUNCTION or SUBROUTINE statement do not appear with the 
ENTRY statement. ENTRY may appear anywhere within the subprogram 
except it should not appear within a DO; ENTRY statement cannot be labeled. 
The first executable statement following ENTRY becomes an alternate entry 
point to the subprogram , 

In the calling program, the reference to the entry name is made just as if 
reference were being made to the function or subroutine in which the ENTRY 
is imbedded. The name may appear in an EXTERNAL statement and, if a 
function entry name, in a type statement. 
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The ENTRY name may not be given type explicitly in the defining program; 
it assumes the same type as the name in the FUNCTION statement. 



Examples: 

FUNCTION JOE(X, Y) 
10 JOE=X+Y 

RETURN 

ENTRY JAM 

IF (X.GT.Y) 10,20 
20 JOE=X-Y 

RETURN 

END 

This could be called from the main program as follows: 



Z=A+B-JOE(3.*P,Q-l) 



R=S+JAM(Q,2.*P) 



7.10 

LIBRARY 

SUBROUTINES 



FORTRAN contains several built-in subroutine subprograms which may be 
referenced by any program with a CALL statement, i must be an integer 
variable or constant; j is an integer variable. 



CALL SLITE (i) 

Turn on sense light i. If i = 0, turn all sense lights off. i is to 6; if i > 6, the 
results are undefined and no diagnostic is provided. 



CALL SLITET (i,j) 

If sense light i is on, set j = 1, if sense light i is off, set i = 2; then turn sense 
light i off. i is 1 to 6. If i is out of the range, the results are undefined. 
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CALL SSWTCH (i,j) 

If sense switch i is on, set j = 1; if sense switch i is off, set j = 2. i is 1 to 6. 
If i is out of the range, the results are undefined. 



CALL OVERFL {j)t 

If a floating point overflow condition exists, set j =1; if no overflow exists, 
set j = 2; and set the machine to a no overflow condition. 



CALL DVCHK O)"*" 

If division by zero occurred, set j = 1 and clear the indicator; if division by zero 
did not occur, set j = 2. 

CALL FTNBIN (i,n,IRAY) 

Sets the input/output format of the specified binary files according to the 
blocking flag, i. (appendix M) 

IRAY is an integer array. IRAY(j) contains the logical unit designation of 
a binary file, 

n is the number of elements in IRAY to be processed. 

If n = 0, all files will be processed, IRAY has no effect in this case. 

If i = 1, each processed file will have blocked input /output; if i =0, each 
processed file will have nonblocked input/output. 

Examples: 

1) CALL FTNBIN (1,0, dummy) The third parameter is used for 

compatibility with FTN and will 
not affect the routine . 

Sets the format of all binary files in the program to be blocked, 

2) IRAY(1)=10 
IRAY(2)=11 

CALL FTNBIN(1,2,IRAY) 

Sets the format of binary files TAPE 10 and TAPE 11 to be blocked. 
Coded files are not affected by a call to FTNBIN. 



tCurrently J is always set to 2 (see LEGVAR in Appendix C). 
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CALL READEC (cm,ecs,n) 

JL ^ t^ m jfc^.' J. fc^ TT V^^ \JLhJ/ a.^ V^XXX ^^.^^t/^^XXV«.V^VL V^V J. Vy k^^WV-LCC^^y ^ AJV^fc-l'^ xxj.wvr VV./XXl^X. C4.J. jjj.V^XX±\yx. jr • «^JJL± 

is the central memory address; it can be an array name or a variable name, 
ecs is tiie ECS relative address. The extended core storage field length is 

HfinlarfiH in thft .TOR nnrrl ^fSnOPF n.a-rf\ mnT^nn^^ n is tJio pmint nf fVio nnmhiaT' 
— \ — — — — — .,__„-,. — _„ _.^ ^ ^.,,„, ^_ ,„.^ ..„.^^„^_ 

of words to be transferred; it must be an integer variable or integer constant. 

If no parity error occurs, return is to the user's program. If a parity error 
is detected, *ECS READ PARITY ERROR AT RA = xxxxxB KEY IN GO OR 
DROP is output on the console and in the dayfile. If the operator keys in GO, 
return is to the user with the data as it was read; if DROP, the job is dropped. 

CALL WRITEC <cm,ecs,n) 

Transfers words from central memory to ECS. Parameters are the same as 
for READEC, If the ECS unit is off or in maintenance mode, a diagnostic 
*ECS UNIT DOWN is output on the console and dayfile; and the job is terminated. 

Example: 

PROGRAM ECS(INPUT, OUTPUT) 
DIMENSION A(IOOO) 

CALL WRITEC(A , , 1000) 
C TRANSFER 1000 CM WORDS BEGINNING AT CM LOCATION 
C A INTO ECS BEGINNING AT WORD OF THE USERS 
C RESERVED ECS. 

END 

CALL SECOND(t) 

Returns central processor time from start of job in seconds in floating point 
format to three decimal places, t is a real variable. 

CALL OPENMS (u,ix,je,p)t 

Opens a mass storage file, and informs SCOPE that it is a random access 
file. If the file already exists, the master index is read into the area speci- 
fied by the program. 

CALL READMS (u,fwa,n,i)t 
CALL WRITMS (u,fwa,n,i) t 

Perform data transfers between mass storage and central memory. 



t Appendix I gives further information and examples for these routines. 
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CALL STINDX (u,ix,je)t 

Changes the file index to the base specified in the CALL. 

u Logical unit number 

ix First word address of the index (in central memory) 

S. Length of index; £2:2 (number of index entries) +1 for name index 

f ^number of index entries +1 for number index 

p=l Indicates file is referenced through a name index, p=0 indicates a 
number index 

fwa Central memory address of the first word of the record 

n Number of central memory words to be transferred 

i Record number or address. When address, it is the address of 

record number or record name. Record number is ri^t justified 
and record name is left justified display code 1-7 characters. 

CALL EXrr terminates program execution and returns control to the monitor. 

CALL REMARK (H) places a message, ^40 characters, in the dayfile. H is 
a Hollerith specification. Program generated messages must terminate 
with a 12-bit byte of binary zeros. 

CALL DISPLA(H,k) displays a variable name {^ 40 characters, but should be 
restricted to 20) and its numerical value in the dayfile; k is displayed as 
an integer if not normalized, in floating point format if normalized. H is 
a Hollerith specification. Program generated messages must terminate 
with a 12-bit byte of binary zeros followed by a zero word. 

CALL DUMP (ai,bi,fi a^.b^.f^) 

CALLPDUMP(ai,bi,fi,...,aj^,bn,fn) ^^ " ^^^ 

Dump storage on OUTPUT file in indicated format. For PDUMP control 
returns to the calling program; for DUMP execution terminates and control 
returns to the operating system. If no parameters are provided, an octal 
dump of all storage occurs. 

aj and bj, identifiers or statement numbers, indicate first and last word of 
the storage area to be dumped. Statement numbers must be 1 to 5 digits with 
a trailing S, CALL DUMP (lOS, 20S, 0). The last word of the storage area 
to be dumped cannot be contained in the last statement of a DO loop. 

The dump format indicators are: f = or 3 octal dump, f = 1 real dump, 
f = 2 integer dump; if bit 48 is set (normalize bit). 



t Appendix I gives further information and examples for these routines. 
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7.n 

FUNCTION 
SUBPROGRAM 



A lunction is a computational proceaure wnicn returns a vaiue associauea wiui 
the function name. The mode of the fimction is determined by a type indicator 
or the name of the function. The first statement of a function subprogram 



.J. 1 
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and PjT are formal parameters. A FUNCTION statement must have at least 
one parameter. 1 < n :s 60. 



7.12 

FUNCTION 

REFERENCE 



FUNCTION name (p^, . . . .p^) 
type FUNCTION name (p^^, . . . ,Pn) 



Type is EEAL, INTEGER, DOUBLE PEECISION, DOUBLE, COMPLEX, or 
LOGICAL. When the type indicator is omitted, the mode is determined by 
the first character of the function name. 

The name of a function must not appear in a DIMENSION declaration. The 
name must appear, however, at least once as any of the following: 

The left-hand identifier of a replacement statement 

An element of an input list 

An actual parameter of a subroutine reference 



In the general form, name identifies the function referenced, it is an alphanu- 
meric identifier, and its type is determined in the same way as a variable 
identifier, p^ are actual parameters, n is 1 to 60. 



name (p 



1" 



,P^) 



A function reference may appear any place in an expression that an operand 
may be used. The evaluated function has a single value associated with the 
function name. When a function reference is encountered in an expression, 
control is transferred to the function indicated. When a RETURN statement 
in the function subprogram is encountered, control is returned to the statement 
containing the function reference. 
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Examples: 




1) 


FUNCTION GRATER(A,B) 




IF(A.GT.B)1,2 


1 


GRATER=A-B 




RETURN 


2 


GRATER=A+B 




RETURN 




END 



2) 



A reference to the function GRATER might be: 
W(I,J)=FA+FB-GRATER(C-D,3.*AX/BX) 

FUNCTION PHI (ALPHA, PHI2) 
PHI = PHI2(ALPHA) 



END 



This function can be referenced: 

EXTERNAL SIN 
C=D-PHI(Q(K),SIN) 

The replacement statement in the fimction PHI will be executed as if 
it had been written PHI=SIN(Q(K) ) 



7.13 

STATEMENT 
FUNCTION 



A statement function is defined by a single ej^ression and applies only 
to the program or subprogram containing the definition. The name of the 
statement function is 1-7 character symbolic name; a single value is 
always ass'ociated with the name. 



name (p, , . . . ,p ) = E 
1 n 

Pj are formal parameters and must be simple variables; n is 1 to 60, The 
expression E may be any arithmetic or logical expression which may contain 
reference to library functions, statement functions, or function subprograms. 

The nonparameter identifiers appearing in the expression have the same values 
as they have outside the function. 
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A statement function reference has the form: 



name(p , . . . ,p ) 
1 n 



IS the naj.iie ot the statement function; the actual parameters p- may 
be any arithmetic expressions. 

During compilation, the arithmetic statement function definition is compiled 
once at the beginning of the program and a transfer is made to this portion of 
the program whenever a reference is made to the arithmetic statement fimction. 

The statement function name must not appear in a DIMENSION, EQUIVALENCE, 
COMMON, or EXTERNAL statement; the name can appear in a type declaration 
but cannot be dimensioned. Statement function names must not appear as actual 
or formal parameters. 

Actual and formal parameters must agree in number, order, and mode. The 
mode of the evaluated statement function is determined by the name of the 
arithmetic statement function. 

A statement function must precede the first statement in which it is used, but 
it must follow all declarative statements (DIMENSION, Type, etc.) which 
contain symbolic names referenced in the statement function. All statement 
functions should precede the first executable statement; otherwise, an in- 
formative diagnostic is provided. 

A statement function may not reference itself and if such an attempt is made, 
a fatal diagnostic is provided. 

Examples: 

LOGICAL A, B 

EQV(A, B)=(A. AND. B). OR. (.NOT. A. AND. .NOT. B) 

COMPLEX Z 

Z(X,Y)-(1. ,0.)*EXP(X)*COS(Y)+(0. ,1.)*EXP(X)*SIN(Y) 
GROPAY (RATE, HRS, OTHRS)=RATE*HRS+RATE*. 5*0THRS 



Examples of use: 

ANET=GROPAY(1.25,NOHRS(I),OVTIME(I))-DEDUCT(I)-TAX 
RESULT=(Z(BETZ,GAMMA(I+K))**2-l.)/SQRT(TWOPIE) 
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7.14 

LIBRARY 

FUNCTIONS Function subprograms that are used frequently have been stored in a reference 

library and are available to the programmer through the compiler. Library 
function references may appear in the main program, subprograms, and 
statement functions. 

FORTRAN contains the standard library functions available in earlier versions 
of FORTRAN. (Appendix C. ) The parameter and result type of all library 
functions is also listed in Appendix C . 



Since intrinsic functions are compiled in line, any reference to such a 
function after being declared EXTERNAL, requires the user to supply 
his own routine. 
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7.16 

\/ADI 

DIMENSIONS IN 
SUBPROGRAMS 



In many subprograms, especially those performing matrix manipulation, the 

Tn-mcnfcxrmrrtor' rTna-^r -nriah to ^ro'mr ctym\T HimonainnQ f^nnh fimo tVi<=> cnl->nT*r>crT*Qm 

is called. 

This is accomplished by specifying the array name and its dimensions as 
formal parameters in the FUNCTION or SUBROUTINE statement. The 
corresponding actual parameters specified in the calling program are used 
by the called subprogram. The maximum dimensions that any given array 
may assume are determined by dimensions in a DIMENSION, COMMON, or 
type statement in the calling program at compile time. 

The formal parameters representing the array dimensions must be simple 
integer variables. The array name must also be a formal parameter. The 
actual parameters representing the array dimensions must have integer values. 

The total number of elements of the corresponding array in the subprogram 
may not exceed the total number of elements of a given array in the calling 
program. 



Example: 

Consider a simple matrix add routine written as a subroutine: 

SUBROUTINE MAT ADD (X,Y,Z,M,N) 
DIMENSION X (M,N),Y(M,N),Z(M,N) 
DO 10 1 = 1,M 
DO 10 J = 1,N 
10 Z(I,J)=X(I,J)+ Y(I,J) 
END 

The arrays X, Y, Z and the variable dimensions M, N must all appear 
as formal parameters in the SUBROUTINE statement and also in the 
DIMENSION statement as shown. If the calling program contains the 
array allocation declaration 

DIMENSION A(10,10),B(10,10),C(10,10),E(5,5),F(5,5),G(5,5),H(10,10) 
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the program may call the subroutine MATADD from several places within 
the main program as follows: 

CALL MATADD(A , B , C , 10 , 10) 
CALL MATADD(E , F , G , 5 , 5) 
CALL MATADD(B,C,A,10,10) 
CALL MATADD(B , C , H , 10 , 10) 

The compiler does not check to see if the limits of the array established by 
the DIMENSION statement in the main program are exceeded. 

7.17 

PROGRAM 

ARRANGEMENT FOETEAN assumes that all statements and comments appearing between a 

PEOGEAM, SUBEOUTINE, or FUNCTION statement and an END statement 
belong to one program . A typical arrangement of a set of main program and 
subprograms follows. (Also see appendix F.) 

PEOGEAM WHAT 



END 

SUBEOUTINE S1(A,B) 



END 
SUBEOUTINE S2 



END 

REAL FUNCTION Fl(Pl) 

END 
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OVERLAYS 



8 



8.1 
OVERLAYS 



An overlay is a portion of a program written on a file in absolute form and 
loaded at execution time without relocation. As a result, the resident loader 
for overlays can be reduced substantially in size. Loading an overlay may 
destroy previously loaded overlays in much the same way as loading a seg- 
ment may destroy previously loaded segments. The user defines an overlay 
with an OVERLAY card. The loader generates the overlay and writes it on a 
file to be called as needed for execution. 

The above paragraph implies that during execution of the object programs, the 
structure of all overlays is fixed and predictable. This system is used when 
the organization of programs in core at object time is reasonably stable, and 
the most pressing need is for the fastest possible loading speed. 



8.1.1 

LEVELS 



Levels are used to describe the sequence of loading overlays and to specify 
which sections of code are to overlay o&ers. In 6000 SCOPE, there are 
three normal levels of overla3dng, main, primary and secondary, and one 
floating method. Up to three overlays may be in core simultaneously; they 
are usually loaded contiguously. Any one or all of the overlays may be 
replaced by other overlays. The following diagram demonstrates the relation- 
ship of the levels when tiiey are loaded into core. This example shows a 
number of different core loads, which might exist for a single job: 



MAIN 



PRIMARY 



SECONDARY 
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Normally only one overlay of each level will be in core at a time; secondary 
overlays usually replace secondary overlays , and primary overlays usually 
replace primary overlays. 



.1.2 

USAGE 



A typical overlay usage would be the case where a programmer desires to 
constrain field length to 40,000 words, but must execute programs requiring 
100,000 words. Assuming a program which can be broken into three sequen- 
tially executed portions of approximately 20,000 words and a basic, common 
portion containing about 20,000 words, the common program portion would be 
designated as the main overlay. The common section would usually consist of 
the I/O routines, and other function subprograms which may be accessed by 
two or more of the portions, as well as some common data storage area. It 
would probably also contain the controlling CALL statements for loading and 
executing other portions of the program. 



Since there is no interdependence between the other three program sections, 
each would be designated a primary overlay. Only one of these sections 
would reside in core at a time , each being overlaid by its successor during 
processing. 

When an overlay is loaded by a FORTRAN CALL statement, it is immediately 
entered and executed. Control is thus taken away from the calling program 
and some means must be established by the programmer for returning from 
the overlay. Usually return is to an entry point in the main overlay. The 
major differences between segments and overlays are as follows: 

Segments are dynamically organized at execution time; the composition 
of overlays is fixed when they are generated. 

Segments are loaded by one CALL and entered at various points by 
additional CALL statements; overlays are loaded and entered with the 
same CALL. 



8,1.3 

IDENTIFICATION 



Overlays may be loaded from the SCOPE library or from a specified file. A 
single overlay may be loaded only from a single file, although many files may 
be used for loading by a single job. When an overlay is loaded from the 
library, it is identified by its primary entry point name; when it is loaded 
from a file, it is identified by its level number. The level number is a pair 
of two-digit octal numbers (0-77g) giving the primary and secondary overlay 
relationship. Ihe first number is the primary level, the second is the 
secondary level. An overlay with a non-zero primary level and a zero 
secondary level (1,0) is a primary overlay. Any overlay with the same 



I 8-2 



60174900 Rev. F 



primary level and a non-zero secondary level (1,1) is associated with and 
subordinate to the corresponding primary and is called a secondary overlay. 
This difference is significant when overlays are loaded. Level 0,0 is re- 
served for the initial, or main, overlay which is neither primary nor second- 
ary; it is a special case which remains in memory during overlay execution. 
Overlay numbers (0,1) to (0,77) are illegal. 

The main overlay (0,0) is loaded first. All primary overlays are loaded at 
the same point immediately following the main overlay . Secondary overlays 
are loaded immediately following the primary overlay. Loading the next 
primary overlay destroys the first loaded primary overlay and any associated 
overlays. Likewise, the loading of a secondary overlay destroys a previously 
loaded secondary overlay. 



8.1.4 

COMPOSITION An overlay may consist of one or more FORTRAN or COMPASS programs. 

The first program in the OVERLAY must have the characteristics of a 
FORTRAN main program (not a subprogram) . The program name becomes 
the primary entry point for the overlay through which control passes when the 
overlay is called. An overlay cannot reference entry points in higher level 
overlays . The only method of reference for a MAIN overlay to primary and 
secondary overlays is through the CALL OVERLAY statement. However, the 
primary overlay may reference any entry point in the MAIN overlay, while 
the secondary overlay may reference any entry point in the primary or 
MAIN overlay. 

Blank common and labeled common may be defined in any level overlay and 
referenced by that overlay and higher level overlays. (The same rules apply 
as for entry points.) Unlike SEGMENT jobs, labeled common is linked 
between overlays. 

An OVERLAY is established by an OVERLAY card which precedes the pro- 
gram cards (section 8.3) . The overlay consists of all programs appearing 
between the OVERLAY card and the next OVERLAY card or an end-of-file. 



8.1.5 

CALL Overlays are called by the following statement: 

CALL OVERLAY (fn, £ ^, je^,p) 

OVERLAY FORTRAN subroutine which translates the FORTRAN call 
into a call to the loader 

fn variable name of the location containing the name of the file 

(left justified display code) which includes the overlay 

H primary level of the overlay 
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f secondary level of the overlay 

p recall parameter. If p equals 6HRECALL, the overlay is 

not reloaded if it is in memory. 

All four parameters must be specified; the absence of any one could result in 
a MODE error at execution time. The levels appearii^ on the OVERLAY card 
are always octal. The normal mode for parameters in FORTRAN calls is 
decimal. This fact should be considered when coding the 
parameters. 



S. J? 
1' 2 



If uniqueness is ensured at execution time, more than one overlay may be 
created with the same level numbers. Uniqueness is determined by the level 
numbers, the file name from which the OVERLAY is to be loaded, and the 
position of the overlay on the file. Since the loader selects the first overlay 
encountered on the specified file with level numbers which match those in the 
call, it is possible to position a number of overlays on a file with the same 
identifier and by properly sequencing the calls thereto, have available a 
number of different overlays. 

Loading from a file requires an end-around search of the file for the specified 
overlay; this can be time consuming in lai^e files. When speed is essential , 
each overlay should be written to a sej^rate file . 



8.1.6 

OVERLAY FORMAT 



Each overlay consists of a logical record in the following format: 
Word 1 



* 


'2 


h 


fwa 


ea 



59 



47 



41 



35 



17 



* 50 (specified on overlay header) 

8 

H Primary overlay level 

S. „ Secondary overlay level 

ea Entry point to the overlay 

fwa First word address of overlay (overlay is loaded at fwa) 

Word 2 through end of record : BO-bit data words. 
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8.2 

SEGMENTS^ Segmentation allows programs that exceed available storage to be divided 

into independent parts which may ue eajneu anu executeu as neeucu. 

A segment is a group of relocatable subprograms or sections loaded and 

one section name; it is included in the loader scheme to reduce the number 
of program names in segment calls. The user defines the programs and 
sections to be included in a given segment. Segments allow the user to 
dynamically select programs which he requires in memory. Segment 
loading proceeds like normal loading and parameters are passed as in 
normal loading. However, when additional segments are called, they may 
destroy existing segments. The user defines a segment with a SEGMENT 
card. Segments are loaded by the monitor during initial load. A running 
program may load a segment with a user request. 

LEVELS 

The user assigns one priority or level number (O-TTg) to each segment. 
The level serves as a programmer's tool for rapid delinking of segments. 
Level zero is reserved for the initial or main segment which remains in 
memory during segment execution; subsequent segments may be loaded at 
any level. The number of segments in central memory at one time is 
limited only by the amount of memory available. 

When a segment is loaded, its external references are linked to their 
corresponding entry points in subprograms and common blocks in previously 
loaded segments at lower levels. Unsatisfied references in the segments 
will remain unsatisfied. Subsequently loaded segments may include entry 
points to satisfy them ; or the user may specify that they be satisfied from 
the system library. All external references which remain unsatisfied will 
contain out-of-bounds references. 

If execution is attempted when unsatisfied externals exist, the job is 
terminated and a message output. 



tSegments are available under SCOPE 3.3, but not under SCOPE 3.4. 
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Levels are used to delink segments that are no lo'nger needed. If a segment 
is loaded at a requested level which is less than or equal to the level of the 
last loaded segment, all segments at levels down to and including the re- 
quested level will be delinked and removed. If a segment is loaded at level 
6, any segments previously loaded at levels 6,7,8 and upward will be 
delinked and removed. When a segment is delinked, the linkage of its entry 
points to external references in lower levels is destroyed and the externals 
are unsatisfied once again. Levels need not be consecutive. For instance, 
the user may request segments at levels 2, 3, 10 and they will be loaded 
as requested. 

Example : 

A SINE routine is loaded in a segment at level 2. If any external symbols 
refer to entry points in level 1, they are linked. To try an experimental 
version of SINE, the user loads a segment containing new SINE at level 3. 
The original SINE remains at levels 2 and so do its links to level 1 ; but, 
any new segments loaded at higher levels will link to the new SINE at level 
3. The linkage remains until a new level 3 is loaded, this would clear 

^^■.4- CTTXTT7* _i1_^__1 o 3 __. J! J._ * JL njl-_ 1-4?j.---_^ J,^-.r-_^ t<j 

^^u.i> Oi.i.'i£j Hi, itiviii O cillU iilXy i'cifciX'ciiCco Ui it WUUiCi Uc icxi. Uiiocitioilcu. ii 

a new SINE were loaded at a level higher than 3, any segments loaded 
afterward would be linked to it. It is permissible to have more than one 
version of a subprogram with the same name, however, the first version 
encountered from the current file position is the one which is loaded. It 
is up to the user to properly position the file to load the version he desires. 

The first segment to declare blank common establishes its length. If sub- 
sequent segments declare larger blank common, it is truncated to fit the 
established length, a message is output on the DAYFILE, and loading continues. 
To change the size of blank common, the segment first declaring it must be 
delinked by loading a new segment at that level, which declares a new length. 
If that segment does not declare blank common, subsequently loaded segments 
may do so. 

Segments are called with this statement; lib and m are optional: 

CALL SEGMENT (fn, e, a, lib, m) 

fn variable name of location containing file name (left justified dis- 

play code) from which the segment load should take place. 

e level of the segment load 

a simple or subscripted variable name of array containing a list of 

segments, sections, and/or subprograms to be loaded with this 
call. Names must be in either L or H form in the upper seven- 
character positions of each word and be terminated by a zero entry. 
If the first entry in the list is zero, all subprograms remaining in 
the file fn are loaded into the segment. Although contents of array 
a are modified by this call , they remain in a form suitable for a 
subsequent SEGMENT call. 
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lib if zero or missing, the system library will be searched for any 
unsatisfied externals . If non-zero , the system library will not 
be used. This parameter controls the c bit in the LOADER 
call. 

m if zero or missing; no segment loa.d map will be produced. If 

non-zero, a map of the segment load will be produced on file 
OUTPUT. This parameter controls the m bit in the LOADER 
call. 



60174900 Rev. F 8-7 | 



8.3 

LOADER CARDS 



Loader cards are processed directly by the loader rather than by the 
monitor. They provide the loader with information necessary for generating 
overlays and segments. All loader cards must precede the subprogram text 
to be loaded. Formats are the same as for SCOPE control cards. However, 
if they are in the FORTRAN decks, the loader cards must begin in column 7. 



8.3.1 

SEGMENT CARDS 



All subprograms named in a segment must reside in the same file. 
SEGMENT 



Segments other than segment zero may be defined by a segment card or in 
the user's program. 



SEGMENT(sn,pn ,pn , . . . ,pn.) 

JL ^ 1 



sn and pa are defined as in SEGZERO 



SEGZERO 

All programs requiring segment loading must have a SEGZERO card defining 
the first segment. There may be only one SEGZERO card in the initial load. 



SEGZERO(sn,pn ,pn , . . . ,pn.) 

J. ^ 1 



sn Segment name 

pn. Names of subprograms or sections 



SECTION 

This card defines a section, or group of programs within a SEGMENT. 



SECTION(sname,pn ,pn pn.) 

X ^ 1 



suame Name of the section 

pn. Name of a subprogram belonging to the section 
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If more than one card is necessary to define a section, consecutive SECTION 
cards with the same sname may follow. Whenever the named section is 
loaded, all subprograms within a section will be loaded. 

All SECTION cards must appear prior to any SEGMENT cards. 



8.3.2 

OVERLAY CARDS 



OVERLAY {in, a ,ii , cnnnnnn) 
1 ^ 



fn File name onto which the generated overlay is to be 

written 

1 Primary level number ) must be 0, for first overlay card 

^ 2 Secondary level number ) ^nd must be in octalt 

cnnnnnn optional; nnnnnn is 6-octal digits. If absent, overlay is 
loaded normally 

If present, overlay is loaded nnnnnn words from the start 
of blank common. This provides a method for changing 
the size of blank common at execution time. 

The first overlay card must have an fn. Subsequent cards may omit fn, 
and the overlay is written on the same fn. 



Each OVERLAY card must be followed by a program card. The program 
card for the main overlay must specify all needed file names, such as 
INPUT, OUTPUT, TAPE 1, etc, for all overlay levels. File names should 
not appear in program cards for other than the (0,0) OVERLAY. 



tLevel numbers given in the CALL OVERLAY, however, are decimal; 
e.g. , the overlay card for overlay 1,9 would be OVERLAY (fn, 1, 11) 
and its, call would be CALL OVERLAY (fn, 1,9) 
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Example: 



OVERLAY(XFILE ,0,0) 

PROGRAM ONE(INPUT, OUTPUT, PUNCH) 



CALL OVERLAY (5HXFILE ,1,0,0) 



STOP 

END 

OVERLAY (XFILE, 1,0) 

PROGRAM ONE ZERO 

CALL OVERLAY(5HXFILE, 1, 1) 



RETURN 

END 

OVERLAY (XFILE, 1, 1) 

PROGRAM ONE ONE 



RETURN 
END 
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INPUT/OUTPUT FORMATS 



Data transmission between storage and external units requires the FORMAT 
statement (BCD only) and the l/O control statement (chapter 10). The l/O 
statement specifies the input/ output device and process READ, WRITE, etc.. 
and a list of data to be moved. The FORMAT statement specifies the manner 
in which the data is to be moved. In binary statements no FORMAT statement 
is used. 



9.1 
LIST 



The list portion of an input/output statement indicates the data items and the 
order, from left to right, of transmission. The input/output list can contain 
any number of elements; list items may be array names, simple or subscripted 
variables, or an implied DO loop. Items are separated by commas, and their 
order must correspond to any FORMAT specification associated with the list. 
External records are always read or written until the list is satisfied. 

Subscripts in an l/O list may be in the following forms: 

(c*I±d) 

(I±d) 

(c*I) 



(c) 

c and d are unsigned integer constants, and I is a simple integer variable, 
previously defined, or defined within an implied DO loop. 



Examples : 

READ 100, A,B,C,D 

READ 200, A,B,C(I),D(3,4),E(I,J,7),H 

READ 101, J,A(J),I,B(I,J) 

READ 102, DELTA(5*J+2 ,5*1-3 ,5'^K),C,D(I+7) 

READ 202, DELTA 

READ 300, A,B,C,(D(I),I=1,10),E(5,7),F(J),(G(I),H(I) ,1=2,6,2) 

READ 400, I,J,K,( ( (A(n,JJ,KK) JI=1,I),J^1,J),KK=1,K) 

READ 500, ( (A(I,J),I=l,10,2),B(J,l),J=l,5),E,F,G(L+5.M-7) 
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9.1.1 

ARRAY 

TRANSMISSION Part or all of an array can be represented for transmission as a single l/O 

list item by using an implied DO notation in the form: 

m. ,n. ,p. Unsigned integer constants or simple integer variables. 

If m , n , or p is omitted, it is assumed equal to 1, 

I, J,K Subscripts of A 

L , L , L Index variables I, J, K in same order 

J. ^ O 

During execution, each subscript (index variable) is set to the initial index 
value: Li^m^^, L2=nj^, L3=p-|^. The first index variable defined in the list 
is incremented first, following the rules for a DO loop execution. When the 
first index variable reaches the maximum value, it is reset; the next index 
variable to the right is incremented, and the process is repeated until the 
last index variable has been incremented. If m^^ is greater than mg initially, 
one read is executed. 

An array name which appears without subscripts in an l/O list causes trans- 
mission of the entire array by columns. 

Example: 

DIMENSION B(10,15) 

the statement 

BEAD 13, B 
is equivalent to 

READ 13 , ((B(I , J) , 1=1 , 10) , J=l , 15) 

An implied DO loop can be used to transmit a simple variable more than one 
time. For example, the list item (A(K),B,K=1,5) causes the transmission of 
variable B five times. A list of the form K, (A(I),I=1,K) is permitted and the 
input value of K is used in the implied DO loop. The index variable in an 
implied DO list in a DATA statement should be an implicit integer. 

Examples : 

1) Simple implied DO loop list items . 

READ 400,(A(I),I=1,10) 
400 FORMAT (E20.10) 
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This statement is equivalent to the following DO loop. 

DO 5 1=1,10 
5 READ 400, A(I) 

READ 100, ((A(JV,JX),JV=2,20,2),JX=1,30) 

IXEjAU zvyjf {ritji.A{o'^OKJVi-rt},t}yjvi — oyjr*r\.,OKjns3,oy~'v*x^) 

READ 300, ((ITMSLST(I,J+1,K-2),I=1,25),J=2,N),K=IVAR,IVMAX,4) 

READ 600 , (A(I) , B(I) , 1=1 , 10) 
600 FORMAT (FIO. 2, E6.1) 

The previous statement is equivalent to the DO loop: 

DO 17 I = 1,10 
17 READ 600, A(I),B(I) 

2) Nested implied DO list items. 

READ100,(((((A(I,J,K),B(I,L),C(J,N),I=1,10),J=1,5), 
K=1,8),L=1,15),N=2,7) 

Data is transmitted in the following sequence: 

A(1.1.1),B<1,1),C(1.2),A(2,1,1)3(2,1),C(1,2)... 

...A(10,1,1),B(10,1),C(1,2),A(1,2,1),B(1,1),C(2,2)... 

...A(10,2,1),B(10,1),C(2,2)...A(10,5,1),B(10,1),C(5,2)... 

...A(10,5,8),B(10,1),C(5,2)..,A(10,5,8),B(10,15).C(5,2),., 

...A(10,5,8),B<10,15),C(5,7) 

The following list item will transmit the array E(3,3) by columns: 
READ 100, ((E(I, J) ,1=1, 3) , J=l, 3) 

The following list item will transmit the array E(3,3) by rows: 
READ 100,((E(I,J),J=1,3),I-1,3) 

3) DIMENSION MATRIX(3, 4, 7) 
READ 100, MATRIX 

100 FORMAT (16) 

The above items are equivalent to the following statements: 

DIMENSION MATRIX(3,4,7) 

READ 100,(((MATRIX(I,J,K),I=1,3),J=1,4),K=1,7) 

The list is equivalent to the nest of DO loops: 

DO 5 K=l,7 
DO 5 J=l,4 
DO 5 1=1,3 
5 READ 100, MATRIX(I,J,K) 
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9.2 

FORMAT 
DECLARATION 



BCD input/output statements require a FORMAT declaration which contains 
conversion and editing information relating to internal/external structure of the 
corresponding I/O list items. A FORMAT declaration has the following form: 

FORMAT (spec^,...,k(spec ,...), spec ,...) 
format specification 
optional rejjetition factor, must be unsigned integer constant. 



Spec. 



The FORMAT declaration is non-executable and may appear anywhere in the 
program. FORMAT declarations must have a statement label in columns 1-5. 

The data items in an I/O list are converted from one representation to another 
(external/internal) according to FORMAT conversion specifications. FORMAT 
specifications may also contain editing codes. 

Conversion specifications: 

F!w . rJ RiTSflp nT'«=>f>iRir»?» flofl+ITScr T".?..' nf>r»'!rr>Ql ■!r>+oo-o?» r>r»T!''r£5r«C! •?/-••>» 



Fw.d 



Dw.d 



Gw.d 



point with exponent 

Single precision floating 
point without exponent 

Double precision floating 
point with exponent 

Single precision floating 
with or without 
exponent 



Ow Octal integer conversion 

Aw Alphanumeric conversion 

Rw Alphanumeric conversion 

Lw Logical conversion 

nP Scaling factor 



Complex data items are ccaiverted on input/output according to a pair of 
consecutive Ew.d or Fw.d specifications. 

Example: 

COMPLEX A, B 
PRINT 10, A 

10 FORMAT (F7.2,F9.2) 
READ 11, B 

11 FORMAT (E10.3,E10.3) 



Editing specifications: 

wX Intraline spacing / 

wH Heading and labeling *. 



Begin new record 
Heading and labeling 



Both w and d are unsigned integer constants; w specifies the field width in 
number of character positions in the external record, and d specifies the 
number of digits to the rj^ht of the decimal within the field. 
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9.3 

CONVERSION 

SPECIFICATIONS 



9.3.1 

Ew.d OUTPUT 



Leading blanks are not significant in numeric input conversions; other blanks 
are treated as zeros. Plus signs may be omitted. An all blank field is 

CQ!lSXClt^I.'i^Cl to rjfc5 rtil Hits ZifeJi'O; fc;AUS3''L- iUi' iU'-'iUcll iiiULii-- WllCi-C clil ctil UlcU-US. 

field is considered to be FALSE. When an all blank field is read with a 
Hollerith input specification, each blank character will be translated into a 
display code 55 octal. 

For the E, F, G, and D input conversions, a decimal point in the input 
field overrides the decimal point specification of the field descriptor. 

The output field is right justified for all output conversions. If the number 
of characters produced by the conversion is less than the field width, lead- 
ing blanks are inserted in the output field. The number of characters pro- 
duced by an output conversion must not be greater than the field width. If 
the field width is exceeded, an asterisk is inserted in the leading position 
of the field. 

Complex data items are converted on input/output as two independent 
floating point quantities. The format specification uses two single precision 
conversion elements. 

Real numbers in storage are converted to the BCD character form for output 
with the E conversion. The field occupies w positions in the output record; 
with the real number right justified in the form: 



ba.a. 



.a±eee 



or 



ba.a. . .aE±ee 



100^eee^322 



0<ee^99 



b indicates a blank or a minus sign, a's are the most significant digits of the 
integer and fractional part and eee are the digits in the exponent. If d is zero 
or blank, the decimal point and digits to the right of the decimal do not appear 
as shown above. Field w must be wide enough to contain the significant digits, 
signs, decimal point, E, and the exponent; w2d+6. Positive numbers 
need not reserve a space for the sign of the number. 

If the field is not wide enough to contain the output value, an asterisk is inserted 
in the high order position of the field. If the field is longer than the output value, 
the quantity is right justified with blank fill to the left. 
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Examples : 



Ew.d Output 

PRINT 10, A 
10 FORMAT(*bA=*E10.3) 

Result: A = -6. 732E+01 or b6.732E+01 

PRINT 10, A 
10 FORMAT (*bA=*E12. 4) 

Result: A = b-6. 7320E+01 



A contains -67.32 
or +67.32 



PRINT 10, A 
10 FORMAT(*bA=*E9.3) 

Result: A= *.732E+01 

PRINT 10, A 
10 FORMAT (*bA=*El 0.4) 

Result: A = *.7320E+01 



bb6.7320E+01 

A contains -67.32 

provision not made 
for sign 



9.3.2 

Ew.d INPUT 



The E specification converts the number in the input field to a real number and 
stores it in the proper location. 

Subfield structure of the input field: 

input field 



digit 



integer 



E 



' fraction exponent 

— decimal point 



The total number of characters in the input field is specified by w; this field is 
scanned from left to right; blanks are interpreted as zeros. An input field con- 
sisting entirely of blanks is interpreted as minus zero. 

The integer subfield begins with a sign (+ or -) or a digit and may contain a 
string of digits. The integer field is terminated by a decimal point, D, E, +, -, 
or the end of the input field. 
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The fraction subfield which begins with a decimal point may contain a string of 
digits. The field is terminated by D, E, +, -, or the end of the input field. 

The exponent subfield may begin with D, E, + or -. When it begins with D or E, 
the + is optional between D or E and the string of digits of the subfield. The 
value of the string of digits in the exponent subfield must be less than 323. 



Permissible subfield combinations: 

+1.6327E-04 

-32.7216 

+328+5 

.629E-1 

+136 

136 

.07628431 

E-06 (interpreted as zero) 



integer fraction exponent 
integer fraction 
integer exponent 
fraction exponent 
integer only 
integer only 
fraction only 
exponent only 



In the Ew.d specification, d acts as a negative power-of-ten scaling factor when 
an external decimal point is not present. The internal representation of the 
input quantity is: 

/• 4- T^f uv in-d ,„ (exponent subfield) 

(integer subfield)xlO xlO^ 
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For example, if the specification is E7.8, the input quantity 3267+05 is converted 
and stored as: 3267x10-^x105 = 3.267. 

A decimal point in the input field overrides d. The input quantity 3.67294+5 read 
by an E9.d specification is always stored as 3.6729x10^. When d does not appear, 
it is assumed to be zero. 

The field length specified by w in Ew.d should always be the same as the length 
of the field containing the input number. When it is not, incorrect numbers may 
be read, converted, and stored as shown below. The field w includes the 
significant digits, signs, decimal point, E or D, and exponent. 



Example: 

READ 20,A,B,C 
20 FORMAT (E9.3,E7.2,E10.3) 

Input quantities on the card are in three contiguous fields columns 1 
through 24: 

9 5 10 

I+6.47E-01-2 .36+5 .321E+02bb 

The second specification (E7 .2) exceeds the width of the second field by 
two characters. 

Reading proceeds as follows: 



10 



+6.47E-01I -2.36+5 .321E+02bb 



+6.47E-01 1-2 .36+5 1 .321E+02bb 



+6.47E-01-2.36+5 |.321E+02bb1 

First, +6.47-01 is read, converted, and placed in location A. Next, -2,36+5 
is read, converted, and placed in location B. The number actually desired 
was -2.36, but the specification error (E7,2 instead of E5.2) caused the two 
extra characters to be read. The number read (-2.36+5) is a legitimate 
input representation under the definitions and restrictions. 

Finally, .321E+0200 is read, converted, and placed in location C. Here again, 
the input number is legitimate and is converted and stored, even though it is 
not the number desired. 
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The above example illustrates a situation where numbers are incorrectly read, 
converted, and stored, and yet there is no immediate indication that an error 
has occurred. 



Examples: 






Ew.d Input 


Specifi- 


Converted 


Input Field 


cation 
Ell. 2 


Value 


+143.26E-03 


.14326 


-12.437629E+1 


E13.6 


-124.37629 


8936E-K)04 


E9.10 


.008936 


327.625 


E7.3 


327.625 


4.376 


E5 


4.376 


-.0003627+5 


E11.7 


-36.27 



-.0003627E5 

blanks 
lEl 

E+06 
l.bEbl 



Ell. 7 

Ew.d 
E3.0 

E10.6 
E6.3 



-36.27 

-0. 
10. 

0. 
10. 



Remarks 

All subfields present 
All subfields present 

No fraction subfield; input 

number converted as 8936. 
X 10-10+4 

No exponent subfield 
No d in specification 

Integer subfield contains 

- only 

Integer subfield contains 

- only 

All subfields empty 

No fraction subfield; input 
number converted as l.xlO^ 

No integer or fraction sub- 
field; zero stored regardless 
of exponent field contents 

Blanks are interpreted as 
zeros 



9.3.3 

Fw.d OUTPUT 



The field occupies w positions in the output record; the corresponding list item 
must be a floating point quantity, which appears as a decimal number, right 
justified: 



ba. 



.a. a. 



b indicates a blank. The a's represent the most significant digits of the number. 
The number of decimal places to the right of the decimal is specified by d. If d 
is zero or omitted, the decimal point and digits to the right do not appear. If 
the number is positive, the + sign is suppressed. If the field is too short to 
accommodate the number, one asterisk appears in the high-order position of the 
output field. If the field is longer than required to accommodate the number, the 
number is right justified with blank fill to the left. 
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Contents of A 
+32.694 
+32.694 
-32.694 



Format Statement 

10 FORMAT (F7. 3) 

11 FORMAT (FIO. 3) 

12 FORMAT (F6. 3) 



Print Statement Printed Result 
PRINT 10, A b32.694 

PRINT lljA bbbb32.694 

PRINT 12, A *2.694 

no provision 
for - sign and 
most signifi- 
cant digit) 



. 32694 



13 FORMAT (F4.3,F6.3) PRINT 12, A, A .327b0.327 



9.3.4 

Fw.d INPUT 



This specification is a modification of Ew.d. The input field consists of an 
integer and a fraction subfield. An omitted subfield is assimied to be zero. 
The restrictions described under Ew.d input apply. 



Examples: 








Specifi- 


Converted 


Input Field 


cation 

F8.4 


Value 


367.2593 


367.2593 


37925 


F5.7 


.0037925 



5bbbb 



bbbbb 



F5.2 



F5.2 



Remarks 

Integer and fraction field 

No fraction subfield; input 
number converted as 
37925 X 10""^ 



-4.7366 


F7 


-4.7366 


No d in specification 


.62543 


F6.5 


.62543 


No integer subfield 


.62543 


F6.2 


.62543 


Decimal point overrides i 
of specification 


+144.15E-03 


F11.2 


.14415 


Exponents are legitimate 
in F input and may have 
P-scaling 



500.00 



-0.00 



No fraction subfield; input 
number converted as 
50000X 10"^ 

Blanks in input field 
interpreted as -0 
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9.3.5 

Gw.d OUTPUT The field occupies w positions of the output record, with d signficant digits. 

The real data will be represented by F conversion unless the magnitude of 
the data exceeds the range that permits effective use of F conversion. In 
this case, the E conversion will represent the external output. Therefore, 
the effect of the scale factor is not implemented unless the magnitude of 
the data requires E conversion. 

When F conversion is used under Gw.d output specification, 4 blanks are 
inserted within the field, right justified. Therefore, for effective use of 
F conversion, d must be ^ w-6. 



The method of representation in the output record is a function of the mag- 
nitude N of the real data being converted. The following table gives a 
correspondence between N and the method of conversion: 



0.1 < N < 1 F (w-4).d,4X 

1 < N < 10 F (w-4).(d-l),4X 



10^-2 < N < 10^" ""^ F(w-4).1,4X 

10*^"^ <N < 10*^ F (w-4).0,4X 



Examples: 

Gw.d OUTPUT 

PRINT 101, XYZ XYZ contains 77.132 

101 FORMAT (G10.3) 
Result: bb77. Ibbbb 

PRINT 101, XYZ XYZ contains 1214635.1 
101 FORMAT (G10.3) 
Result: bl.215E+06 
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9.3.6 

Gw.d INPUT 



Gw.d specification is similar to the Fw.d input specification. 



a -a -y 



Dw.d OUTPUT 



The field occupies w positions of the output record, the list item is a double 
precision quantity which appears as a decimal number, right justified: 

ba.a. . .a±eee 100^eee^512 

or 
ba.a. . .aD±ee 0^ee^99 

b indicates blank. D conversion corresponds to Ew.d Output. 



9.3.8 

Dw.d INPUT 



D conversion corresponds to E conversion except that the list variables must 
be double precision names. D is acceptable in place of E as the beginning of 
an exponent subfield. 



Example: 



DOUBLE Z,Y,X 
READ1,Z,Y,X 
1 FORMAT (D18.11,D15,D17.4) 



Input Card: 



(- 



-6.31675298443E-03 +2 .718926453147 6293477528869D-09 
18 15 17 



9.3.9 

Iw OUTPUT 



I specification is used to output decimal integer values. The output quantity 
occupies w output record positions, right justified: 

ba. . .a 

b is a blank. The a's are the most significant decimal digits (maximum 15) 
of the integer. If the integer is positive, the + sign is suppressed. The range 
of numbers permitted is roughly -2 +1< n<2'*°-l. 
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If the field w is larger than required, the output quantity is right justified with 
blank fill to the left. If the field is too short, characters are stored from the 
right, an asterisk occupies the leftmost position. 



Example: 

PRINT 10,I,J,K I contains -3762 

10 FORMAT (18,110,15) "^ contains +4762937 

K contains +13 

Result: 




9.3.10 

'^ "^f*^"'" The field is w characters in length, and the list item is a decimal integer 

constant. The input field w consists of an integer subfield, containing +, -, 
through 9, or blank. When a sign appears, it must precede the first digit in 
the field. Blanks are interpreted as zeros. The value is stored right justified 
in the specified variable. 



Example: 



READ 10,I,J,K,L,M,N 
10 FORMAT (13 ,n ,12 ,13 ,12 ,14) 

Input Card: 



(\ 



139bb-15bbl8bb7bbblb4 
3 7 2 3 2 4 
In storage: 

I contains 139 

J -1500 

K 18 

L 7 

M -0 

N 104 
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9.3.11 

Ow OUTPUT 



O specification is used to output octal integer values. The output quantity 
occupies w output record positions right justified: 



aa. 



The a's are octal digits. If w is 20 or less, the rightmost w digits appear. If 
w is greater than 20, the number is right justified in the field with blanks to the 
left of the output quantity. A negative munber is output in its one's complement 
internal form . 



9.3.12 

Ow INPUl 



Octal integer values are converted under O specification. The field is w 
characters in length, and the list item must be an integer variable. 

The input field w consists of an integer subfield only (maximum of 20 octal 
digits) containing +, -, through 7 or blank. 

Only one sign may precede the first digit in the field. Blanks are interpreted 
as zeros; and an all blank field is interpreted as minus zero. 



Example: 



TYPE INTEGER P,Q,R 
READ 10,P,Q3 
iO FORMAT (010,012,02) 



Input Card: 

/3737373737666b6644b444-0 

10 12 2 

In storage: 

P 00000000003737373737 
Q 00000000666066440444 
R 77777777777777777777 
A negative number is represei 



's complement form 
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A negative octal number is represented internally in seven's complement form 
(20 digits) obtained by subtracting each digit of the octal number from seven. 
For example, if -703 is an input quantity, its internal representation is 

77777777777777777074. 

That is, 77777777777777777777 
- 00000000000000000703 

77777777777777777074 



9.3.13 

Aw OUTPUT 



A conversion is used to output alphanumeric characters. If w is 10 or more, 
the quantity appears right justified in the output field, blank fill to left. If w is 
less than 10, the output quantity is represented by leftmost w characters. 



9.3.14 

At.y IKJDIIT 



representation is 6000 Series display code; the field width is w characters. 

If w exceeds 10, the input quantity is the rightmost 10 characters in the field. 
If w is 10 or less, the input quantity is stored as a left justified BCD word; the 
remaining spaces are blank filled. 



Example: 



READ 10,Q,P,O 
10 FORMAT (A8,A8,A4) 

Input Card: 



r^ 



LUX MENTIS LUX ORBIS 

8 8 4 

In storage: 

Q LUXbMENTbb 
P ISbLUXbObb 
O RBISbbbbbb 



9.3.15 

Rw OUTPUT 



This specification is similar to the Aw Output with the following exception. 
w is less than 10, the output quantity represents the rightmost characters. 



If 
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9.3.16 

Rw INPUT 



This specification is the same as the Aw Input with the following exception. If 
w is less than 10, the input quantity is stored as a right justified binary zero 
filled word. 



Example : 



READ 10,Q,P,O 
10 FORMAT (R8,R8,R4) 

Input Card: 



r^ 



LUX MENTIS LUX ORBIS 

8 8 4 

In storage: 

Q OOLUXbMENT 
P OOISbLUXbO 
O OOOOOORBIS 



9.3.17 

Lw OUTPUT 



L specification is used to output logical values. The output field is w characters 
long, and the list item must be a logical element. 

A value of TRUE or FALSE in storage causes w-1 blanks followed by a T 
or F to be output. 



Example : 

LOGICAL I, J, K, L 
PRINT 5,I,J,K, L 
5 FORMAT (4L3) 

Result: bbTbbFbbTbbT 



I contains -0 J contains 

K contains -0 L contains -0 



9.3.18 

Lw INPUT 



This specification accepts logical quantities as list items. The field is 
considered true if the first non-blank character in the field is T or false if 
it is F. An all -blank field is considered false. 
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9.4 

nP SCALE FACTOR 



The D, E, F, and G conversion may be preceded by a scale factor whose 
effect is defined by: External number = Internal number xlOS^ale factor^ 
The scale factor applies to Fw.d and Gw.d on both input and output and to 
Ew.d and Dw.d on output only. A scaled specification is written as shown 
below; n is a signed integer constant. 



nPDw.d 



nPEw.d 



nPFw.d 



nPGw.d 



nP 



The scale factor is assumed to be zero if no other value has been given; . 
however, once a value has been given, it holds for all D, E, F, and G 
specifications. To nullify this effect in subsequent D, E, F, and G specifica- 
tions, a zero scale factor, OP, must precede a D, E, F, or G specification. 
Scale factors for D, E, F, and G output specifications must be in the range 
-8 < n ^ 8. 

Scale factors on D or E input specifications are ignored. For ANSI compati- 
ble scale factor see section 9.8. 

The scaling specification nP may appear independently of a D, E, F, or G 
specification; it holds for all subsequent D, E, F, and G specifications 
within the same FORMAT statement unless changed by another nP, 

Example: 

FORMAT(3PE12. 6, FIO. 3, 0PD18. 7, -IP, F5. 2) 

3 
The E12.6 and FIO. 3 specifications are scaled by 10 , the D18.7 speci- 
fication is not scaled, and the ^^5.2 specification is scaled by lO"-"-. 

The specification (3P, 319, FIO. 2) is the same as the specification 
(3I9,3PF10.2). 



9.4.1 

Fw.d SCALING 



Input 

The number in the input field is divided by 10^ and stored. For example, if the 
input quantity 314.1592 is read under the specification 2PF8.4, the internal 
number is 314.1592x10-2 = 3.141592. 



Output 

The nimiber in the output field is the internal number multiplied by 10^. In the 
output representation, the decimal point is fixed; the number moves to the left 
or right, depending on whether the scale factor is plus or minus. For example, 
the internal number 3.145926538 may be represented on output xinder scaled F 
specifications as follows: 
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Specification 

F13.6 
1PF13.6 

oir r xo.o 

-1PF13.6 



Output Representation 

3.141593 
31.415927 

o -s /i -s r* f\c\ f^rr A 

.314159 



9.4.2 

Ew.d ORDw.d 
SCALING 



Output 

The scale factor has the effect of shifting the output number left n places while 
reducing the exponent by n. Using 3.1415926538, some output representations 
corresponding to scaled E specifications are: 



Specification 

E20.2 
1PE20.2 
2PE20.2 
3PE20.2 
4PE20.2 
5PE20.2 
-1PE20.2 



Output Representation 



3.14 


E+00 


31.42 


E-01 


314.16 


E-02 


3141.59 


E-03 


31415.93 


E-04 


314159.27 


E-05 


0.31 


E+01 



9.4.3 

Gw.d SCALING 



Input 

Gw.d scaling on input is the same as Fw.d scaling on input. 



Output 

The effect of the scale factor is suspended unless the magnitude of the data 
to be converted is outside the range that permits the effective use of F 
conversion. 
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9.5 

EDITING 

SPECIFICATIONS 

9.5.1 

wX This specification may be used to include w blanks in an output record or to 

skip w characters on an input record to permit spacing of input/ output quantities. 
OX is not permitted; bX is interpreted as IX. In the specification list, the comma 
following X is optional. 

Examiples : 

INTEGER A A contains 7 

^^„,^ . B contains 13.6 

PRINT 10, A, B, C ^ .. i.coQT 

' ' C contains 1462.37 

10 FORMAT (12, 6X, F6.2, 6X, E12.5) 

Result: b7bbbbbbbl3 .60bbbbbbbl .46237 E+03 
READ 11, R, S, T 

11 FORMAT (F.5.2, 3X, F5,2, 6X, F5.2) 

or 
11 FORMAT (F5.2, 3XF5.2, 6XF5.2) 

Input Card: 



f^ 



14.62bb$13 .78bCOSTbl5 .97 

In storage: 

R 14.62 
S 13.78 
T 15.97 



9.5.2 

wH OUTPUT With this specification 6-bit characters, including blanks may be output in the 

form of comments, titles, and headings, w, an unsigned integer, specifies the 
mmiber of characters to the right of H that are transmitted to the output record; 
w may specify a maximum of 136 characters. H denotes a Hollerith field; the 
comma following H is optional. 
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Examples : 



Source program: 

PRINT 20 
20 FORMAT (28HbBLANKSbCOUNTbINbANbHbFIELD.) 
produces output record: 
bBLANKSbCOUNTblNbANbHbFIELD. 

Source program: 

PRINT 30, A A contains 1.5, comma is optional 

30 FORMAT (6HbLMAX=,F5.2) 
produces output record: 
bLMAX = bl.50 



9.5.3 

wH INPUT 



The H specification may be used to read Hollerith characters into an existing H 
field within the FORMAT specification. 



Example: 



source program: 

READ 10 
10 FORMAT (27Hbbbbbbbbbbbbbbbbbbbbbbbbbbb) 

Input Card: 



(\ 



bTHIS IS A VARIABLE HEADING 
27 cols 



After READ, the FORMAT statement labeled 10 contains the alphanumeric in- 
formation read from the input card; a subsequent reference to statement 10 in 
an output statement acts as follows: 

PRINT 10 

produces the print line: 

bTHIS IS A VARIABLE HEADING 
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9.5.4 

NEW RECORD The slash (/) signals the end of a record anywhere in the specifications list. 

Consecutive slashes may appear in a list and they need not be separated from 
the other list elements by commas. During output, the slash is used to skip 
lines, cards, or tape records. During input, it specifies that control passes to 
the next record or card. K(/) results in K-1 lines being skipped. 

Examples : 

1) PRINT 10 

10 FORMAT (6X, 7HHEADING/ / /3X, SfflNPUT, 2X, 6HOUTPUT) 



Printout: 






HEADING 




line 1 




(blank) 


line 2 




(blank) 


line 3 


I NPUTbbOUTPUT 




line 4 



Each line corresponds to a BCD record. The second and third records are 
null and produce the line spacing illustrated. 

2) PRINT 11, A, B, C, D 

11 FORMAT (2E10.2/2F7.3) 

In storage: 

A -11.6 

B .325 

C 46.327 

D -14.261 



Printout: 

b-1 .16E+01bb3 .25E-01 
b46 .327-14.261 

3) PRINT 11, A,B,C,D 

11 FORMAT (2E10.2/ /2F7.3) 

Printout: 

b-1.16E+01bb3.25E-0] line 1 

— (blank) — line 2 
b46.327-14.261 line 3 
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4) PRINT 15, (A (I), 1=1, 9) 

15 FORMAT (8HbRESULTS2(/) (3F8.2) ; 



Printout: 

RESULTS 








line 1 


3.62 


-4.03 

7.12 

-6.74 


-9.78 


(blank) 


line 2 
line 3 


-6.33 


3.49 




line 4 


6.21 


-1.18 




line 5 



9.5.5 



The specification * ... * can be used as an alternate form of wH to output 
headings, titles, and comments. Any 6-bit character (except asterisk) be- 
tween the asterisks will be output. The asterisks delineate the Hollerith 
field. This specification need not be separated from other specifications 
by commas. 



Output Examples: 

1) Source program; 



PRINT 10 
10 FORMAT (*bSUBTOTALS*) 

bSUBTOTALS 



produces the output record: 

2) Improper source program to output ABC*BE: 

PRINT 1 
1 FORMAT(*ABC*BE*) 

The * in the output causes the specification to be interpreted as 
*ABC* and BE*. BE* is an improper specification; therefore, 
the wH specification must be used to output ABC*BE. 

For input, this specification may be used in place of wH to read a new heading 
into an existing Hollerith field. Characters are stored in the heading until an 
asterisk is encountered in the input field or until all the spaces in the format 
specification are filled. If the format specification contains n spaces and the 
mth character (m<n) in the input field is an asterisk, all characters to the 
left of the asterisk will be stored in the heading and the remainii^ character 
positions in the heading will be filled with blanks. 
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9.6 

REPEATED 
FORMAT 
SPECIFICATIONS 



Input Examples: 

1) Source program ; 

Input card: 



READ 10 
10 FORMAT (*bbbbbbbbbbbbbbbbbbbbb*) 



r 



bFORTRAN FOR THE 6600 



A subsequent reference to statement 10 in an output control statement: 
PRINT 10 produces: FORTRAN FOR THE 6600 



2) Source program: 



READ 10 
10 FORMAT (*bbbbbbbb*) 



bHEAD*LINE 
PRINT 10 produces: HEAD bbb 



r 



FORMAT specifications may be repeated by using an unsigned integer constant 
repetition factor, k, as follows: k(spec), spec is any conversion specification 
except nP. For example, to print two quantities K, L: 

PRINT 10,K,L 
10 FORMAT (12,12) 

Specifications for K, L are identical; the FORMAT statement may also be: 
10 FORMAT (212) 

When a group of FORMAT specifications repeats itself as in: FORMAT (E15.3, 
F6. 1,14,14, E15. 3, F6. 1,14,14), the use of k produces: FORMAT(2(E15.3 F6 1 
214)) 

Nesting of parenthetical groups preceded by repeat constants beyond two levels 
is not permitted in FORMAT specifications. 
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9.6.1 



GROUPS 



FORMAT specifications may be repeated without using a repetition factor. The 
innermost parenthetical group that has no repetition factor is unlimited and will 
be used repeatedly until the l/O list is exhausted. Parentheses are the controlling" 
factors in repetition. The right parenthesis of an unlimited group is equivalent 
to a slash. Specifications to the right of an unlimited group can never be reached, 
as in the following example : 

Format specifications for output data: 

(E16.3,F20.7,2(I4),(I3,F7.1),F8.2) 

The first two fields are printed according to E16.3 and F20.7. Since 2(14) is a 
repeated parenthetical group, the next two fields are printed according to 14 
format. The remaining print fields follow (I3,F7.1), which does not have a 
repetition factor, until the list elements are exhausted, F8.2 is never reached. 



9.7 

VARIABLE 

FORMAT 



FORMAT specifications may be specified at the time of program execution. 
The specification, including left and right parentheses but not the statement 
label or the word FORMAT, is read under A conversion or in a DATA state- 
ment and stored in an array or a simple variable. The name of the array 
containing the specifications may be used in place of the FORMAT statement 
labels in the associated input /output operation. The array name that appears 
with or without subscript specifies the location of the first word of the FOR- 
MAT information. 



Examples: 



Assume the following FORMAT specifications: 

(E12.2,F8.2,I7,2E20.3,F9.3,I4) 

This information can be pimched in an input card and read by the state- 
ments of the program such as: 

DIMENSION IVAR(3) 
READ 1 (IVAR(I),I=1,3) 
1 FORMAT (3A10) 
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The elements of the input card are placed in storage as follows: 



IVAB(l) 
IVAB(2) 
IVAR(3) 



(E12.2,F8, 
2,17, 2E20. 
3,F9.3,I4) 



A subsequent output statement in the same program can refer to these 
FORMAT specifications as: 

PRINT IV AR, A, B, I, C, D, E, J 

This produces exactly the same result as the program: 

PRINT 10, A, B, I, C, D, E, J 
10 FORMAT (E12,2,F8.2,I7,2E20,3,F9,3,I4) 

2. DIMENSION LAIS1(3) , LAIS2(2) , A(6) , LSN(3) , TEMP(3) 
DATA LAIS1/21H(2F6.3,I7,2E12,2,3I1)/, LAIS2/20H 
(I6,6X,3F4.1,2E12.2)/ 

Output statement: 

PRINT LAISl, (A(I),I=1, 2) , K, B, C, (LSN(J), J=l, 3) 

which is the same as: 

PRINT 1,(A(I),I=1,2),K,B,C,(LSN(J),J=1,3) 

1 FORMAT (2F6. 3,17, 2E12. 2, 311) 

Output statement: 

PRINT LAIS2,LA,(A(M),M=3,4),A(6),(TEMP(I),I=2,3) 
which is the same as: 

PRINT 2, LA, (A(M), M=3, 4) , A(6) , (TEMP(L) , L=2, 3) 

2 FORMAT (16, 6X,3F4.1,2E12.2) 

3. DIMENSION LAIS (3), VALUE(6) 

DATA LAIS/26H(I3, 13HMEANbVALUEbIS, F6. 3)/ 

Output statement: 

WRITE (10,LAIS)NUM,VALUE(6) 

which is the same as: 

WRITE (10, 10)NUM, VALUE(6) 
10 FORMAT (13 , 13HME ANbVALUEbIS, F6 . 3) 
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9.8 

ANSI 

CCmPATiBiLil 



During compilation, a compiler parameter is avaiiaoie to seiect eimer tne 
ANSI compatibility features of the execution time routines or retain the 
present method of FORMA T/list interaction and output format. The switch 
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program is being compiled. 



9.8.1 

UNLIMITED 
GROUPS FOR ANSI 



Unlimited group repeat is implemented according to the ANSI specification. 
An innermost parenthetical group that has no group repeat count specified in 
a FORMAT statement assumes a group repeat count of one. If the last outer 
right parenthesis of the format specification is encountered and the l/O list 
is not exhausted, control reverts to that group repeat specification terminated 
by the last preceding right parenthesis , or if none exists , then to the first 
left parenthesis of the format statement. 



I 



9.8.2 

SCALE FACTOR 
FOR ANSI 



A scale factor is allowed for F, E, D, and G on input. On input, the scale 
factor has no effect if there is an exponent in the external field. G output 
makes use of the scale factor only if E conversion is necessary to convert the 
data. 
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INPUT/OUTPUT STATEMENTS 



]0 



rne loiiowing aeiimtions appiy xo aii 1/ u statements : 

i logical I/O unit number : 

an integer constant of one or two digits (the first 
must not be zero) 

integer variable names of no more than 7 characters, 
with a value of 1 to 99 

n FORTRAN declaration identifier: 

statement number 

variable identifier which references the starting storage 
location of FORMAT information 

L I/O list 

The logical BCD record and the logical binary record for each I/O device 
as used with the 6000 Series Computer System are defined as follows: 



Printer 
Card Reader 
Card Punch 



One Inch Tape 



One-half Inch Tape 



Liisk 



Logical BCD record is a one-card image (80 
characters) for the card I/O devices and 136t 
characters (1 print line) for the printer. 

Logical binary record, for the card I/O devices, 
is a number of cards between the EOR cards (7,8,9 
punch in column 1); for the printer, it is a number 
of print -lines between the EOR marks. 

Logical BCD record is a character string ending with 
a zero byte blocked in 512-word physical records. 

Logical binary record is a number of chained blocks 
(512 words). 

Logical BCD record is a physical record (even parity) 
containing up to 136 1 characters. 

Logical binary record is a set of chained blocks 
(512 words) with odd parity. 

Logical BCD record is a character string ending 
with a zero byte (blocked in sectors) . 

Logical binary record is a number of chained 
sectors. 



tAs the first character specifies carriage control, only 135 characters are 
printed. 
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10.1 

OUTPUT 

STATEMENTS print n, L 



10-2 



Information in the list (L) is transferred from the storage locations to the 
standard output unit as line printer images, 136 characters or less per 
line in accordance with the FORMAT declaration, n. The maximum record 
length is 136 characters, but the first character of every record is not 
printed as it is used for carriage control! when printing on-line. Characters 
in excess of the print line appear on the succeeding line. Each new record 
starts a new print line. 



For off-line printing, the printer control is determined by the installation's 
printer routine, 

PUNCH n,L 

Information is transferred from the storage locations given by the list (L) 
identifiers to the standard punch unit. Information is transferred as Hollerith 
images, 80 characters or less per card in accordance with the FORMAT 
declaration, n. 



WRITE (i,n)L 

WRITE OUTPUT TAPE i,n,L 

These forms are equivalent; they transfer information from storage locations 
given by the list (L) to a specified output unit (i) according to the FORMAT 
declaration (n). 

With a half inch tape unit, a logical record containing up to 136 characters is 
recorded in even parity (BCD mode). The number of words in the list and 
the FORMAT declaration determine the number of records that are written 
on a unit. If the logical record is less than 136 characters, the remainder 
of the record is filled with blanks. 



tSee Appendix O for carriage control character conventions. 
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With a one-inch tape unit, a packed 5 120 -character physical record is recorded 
in odd parity. Each physical record consists of as many logical record charac- 

series display code with no special control characters added, and it represents a 
continuous stream of logical output records. Trailing blanks on each logical 
record are removed and two consecutive characters with a value of zero separate 
logical records on the tape . 

If the tape is to be printed, the first character of a record is not printed as it is 
a printer control. If the programmer fails to allow for a printer control charac- 
ter, the first character of the output data is lost on the printed listing. 



WRITE (i)L 

WRITE TAPE i,L 

These equivalent forms transfer information from storage locations given 
by the list (L) to a specified output unit (i). If L is omitted, the WRITE 
(i) statement causes a zero length logical record to be written on unit (i). | 
See READ (i) L. 

If blocked binary option is not used, the number of words in the list determines 
the number of physical records written on the unit. A physical record contains 
a maximum of 512 central storage words; the last physical record may con- 
tain from 1 to 512 words. Physical records written by one WRITE (i)L 
statement constitute one logical record. The information is recorded in odd 
parity (binary mode). For blocked binary l/O files see FTNBIN routine in 
section 7-10 and appendix M. 

A logical record which is an exact multiple of 512 words is followed by a 
physical record of eight zero characters called a zero length record. 

Examples: 

1. DIMENSION A(260),B(4000) 
WRITE(10)A,B 

2. DO 51 = 1,10 

5 WRITE TAPE 6 , AMAX (I) , (M(I , J) , J=l , 5) 

3. PRINT 50,A,B,C(I,J) 

50 FORMAT (X 8HMINIMUM=F17 . 7 , 2X8HMAXIMUM=F17 . 7 , 
2X10HVALUE IS $F8.2) 

4. PRINT 51, (A(I),I=1,20) 

51 FORMAT(X23HTRUTH MATRIX VALUES ARE/(3X4L3)) 

5. PUNCH 52,ACCT,LSTNME,FSTNME,TELN0,SHPDTE,ITMN0 

52 FORMAT (F8. 2, 3X4A10,XI5) 
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The format on the previous page assumes the following dimension 
statement: 

DIMENSION USTNME (2) , FSTNME (2) 
WRITE (2,53)A,B,C,D 

53 FORMAT (4E21.9) 

WRITE OUTPUT TAPE 2,52,A,B,C,D 
WRITE (2,54) 

54 FORMAT (32HTmS STATEMENT HAS NO DATA LIST.) 



10.2 

READ 

STATEMENTS 



A check should be made for the end of the file (either by counting records 
or by an IF EOF statement after each read). If this check is not made 
and the EOF is reached, the data used for processing will be blanks or 
useless. If a read is issued after the EOF is reached, the job will be term- 
inated unless the EOF flag has been cleared by an IF EOF statement. 



READn,L 

One or more card images are read from the standard input unit. Information 
is converted from left to right in accordance with FORMAT specification (n) , 
and it is stored in the locations named by the list (L). Input may be on 80- 
column Hollerith cards or magnetic tapes prepared off-line , containing 
80-character records in BCD mode. 

Example: 

READ 10,A,B,C 
10 FORMAT (3F10.4) 



READ (i,n)L 

READ INPUT TAPE i,n,L 

These equivalent forms transfer one logical record of information from logical 
unit (i) to storage locations named by the list (L), according to FORMAT speci- 
fication (n) . The number of words in the list and the FORi\IAT specifications 
must conform to the record structure on the logical unit. 
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READ (i)L 
READ TAPE i,L 

These equivalent forms transfer one logical record of information from a speci- 
fied unit (i) to storage locations named by the list (L) . 

Records to be read by READ (i) should be written in binary mode . The number 
of words in the list of READ (i)L must not exceed the number of words in the 
corresponding WRITE statement. 

If L is omitted, READ (i) spaces over one logical record. See WRITE (i)L. 



Examples : 

1) DIMENSION C(264) 
READ (10)C 

DIMENSION BMAX (10), M2 (10,5) 
D07I=1, 10 
7 READ TAPE 6, BMAX (I), (M2(I,J),J=1,5) 
READ (5) (skip one logical record on unit 5) 
READ (6) ((A(I,J),I=1,100),J=1, 50) 
READ TAPE 6,((A(I,J),I=1,100),J=1, 50) 

2) READ INPUT TAPE 10,50,X,Y,Z 

50 FORMAT (3F10.6) 
DOUBLE PRECISION DB(4) 
READ (10,51) DB 

51 FORMAT (4D20.12) 
READ 51, DB 

READ (2,52) (Z(J),J=1,8) 

52 FORMAT (F10.4) 
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10.3 

NAMELIST 

STATEMENT The NAMELIST statement permits the input and output of character strings 

consisting of names and values without a format specification. 



NAMELIST /y^/3.^/y^\/- •'^yj\ 



When NAMELIST appears with a DIMENSION, COMMON, EQUIVALENCE, 
or a type declaration, any arrays used in NAMELIST must have been dimen- 
sioned prior to the NAMELIST statement. 



Each Y.is a NAMELIST name consisting of 1-7 characters which must be 

unique within the program unit in which it is used. Each a is a list of the 

form b ,b„, . . . ,b ; each being a variable or array name. 
1 2 n 

In any given NAMELIST statement, the list a of variable names or array 
names between the NAMELIST identifier y; and the next NAMELIST identifier 
(or the end of the statement if no NAMELIST identifier follows) is associated 
with the identifier y_. 

Examples: 

PROGRAM MAIN 

NAMELIST /NAMEl/Nl , N2, Rl , R2/NAME2/N3 , R3, N4, Nl 

SUBROUTINE XTRACT (A,B,C) 

NAMELIST/C ALLl/Ll , L2 , L3/C ALL2/L3 , P4 , L5 , B 

A variable name or array name may be an element of more than one such list. 
In a subprogram, b may be a dummy parameter identifying a variable or an 
array, but the array may not have variable dimensions. 

A NAMELIST name may be defined only once in a program unit preceding any 
reference to it. Once defined, any reference to a NAMELIST name may be 
made only in a READ or WRITE statement. The form of the input/output 
statements used with NAMELIST is as follows: 

READ (u,x) 
WRITE (u,x) 

u is an integer variable or integer constant denoting a logical unit, and x is 
a NAMELIST name . 
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Example : 



AsRlimp A T unci T. a-rc^ av-rmr namcx 



NAMELIST /NAM1/A.B.I.J/NAM2/C.K-L 



READ (5,NAM1) 



WRITE (8,NAM2) 



These statements result in the BCD (coded) input/outputs on the device 
specified as the logical unit of the variables and arrays associated with 
the identifiers, NAMl and NAM2. 



INPUT DATA 



The current file on unit u is scanned up to an end-of-file or a record with a 
$ in column 2 followed immediately by the name (NAMl) with no embedded 
blanks. Succeeding data items are read until a $ is encountered. 

The data item, separated by commas, may be in any of three forms: 

v=c 

a=d^, .. .,d. 

V is a variable name, c a constant, a an array name, and n is an integer 
constant subscript. ± are simple constants or repeated constants of the 
form k*c, where k is the repetition factor. 

Example : 

DIMENSION Y (3, 5) 

LOGICAL L 

COMPLEX Z 

NAMELIST /HURRY/I1,I2,I3,K,M,Y,Z,L 

READ (5, HURRY) 

and the input record: 

$HURRYI1=1,L=.TRUE.,I2=2,I3=3.5,Y(3,5)-26,Y(1,1)=11,12.0E1,13,4*14, 
Z=(1.,2.),K-16,M=17$ 
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produce the following values: 

11=1 Y(l,2)=14.0 

12=2 Y(2,2)=14.0 

13=3 Y(3,2)=14.0 

Y(3,5)=26.0 Y(l,3)=14.0 

Y(l,l)=11.0 K=16 

Y(2,l)=120.0 M=17 

Y(3,l)=13.0 Z=(l.,2.) 
L=.TRUE. 

The number of constants, including repetitions, given for an unsubscripted 
array name must equal the number of elements in that array. For a sub- 
scripted array name, the number of constants need not equal, but may not 
exceed, the number of array elements needed to fill the array. 

v=c variable v is set to c 

a=d , . . . ,d. the values d , . . . ,d. are stored in consecutive elements 

•' of array a in the order in which the array is stored 

internally. 

a(n)=d , . . . ,d elements are filled consecutively starting at a(n) 
^ ' 1 m 

The specified constant of the NAMEUST statement may be integer, real, 
double precision, complex of the form (C]^,C2), or logical of the form T, or 
.TRUE. , F, or . FALSE.. A logical or complex variable may be set only 
to a logical and complex constant, respectively. Any other variable may be 
set to an integer, real or double precision constant. Such a constant is con- 
verted to the type of its associated variable. 

Constants and repeated constant fields may not include embedded blanks. 
Blanks, however, may appear elsewhere in data records. 

A maximum of 150 characters per input record is permitted. More than one 
record may be used for input data. All except the last record must end with 
a constant followed by a comma, and no serial numbers may appear; the first 
column of each record is ignored. 

The set of data items may consist of any subset of the variable names 
associated with x. These names need not be in the order in which they appear 
in the defining NAME LIST statement. 
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OUTPUT DATA 



Output to unit u of BCD information is as follows: 



fier X. As many records as are needed to output the current values of all 
variables in the list associated with x. Simple variables are output as v=c . 

Elements of dimensioned variables are output in the order in which they are 
stored internally. 

The data fields are made large enough to include all significant digits. Logi- 
cal constants appear as T and F. No data appears in column 1 of any record. 

One record consisting of a $ in column 2 immediately followed by the letters 
END. 

The records output by such a WRITE statement may be read by a READ (u,x) 
statement where x is the same NAMELIST identifier. 

If unit u is the standard punch unit and a record is longer than 80 characters, 
the remaining characters are punched on the next card. 

The maximimi length of a record written by a WRITE (u,x) statement is 
136 characters. 



10 
STATEMENTS 



REWIND! 



Magnetic tape unit i is rewound to load point. If the tape is already rewound, 
the statement acts as a do-nothing statement. 



BACKSPACE i 

Unit i is backspaced one logical record in a binary file or a BUFFER IN/OUT 
file or one BCD record in a normal BCD file. If tape is at load point (rewound) , 
this statement acts as a do-nothing statement. 



END FILE i 

An end-of-file is written on magnetic tape unit i. 
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IF (END FILE i)n^,n2 

IF (EOF,i)nj^,n2 

These statements check the previous read operation to determine if an 
end-of-file has been encountered on unit i. If so, control is transferred 
to statement n- ; if not, control is transferred to statement n„. 

IF (IOCHECK,i)nj^,n2 

This statement checks for parity errors on previous input operations. If 
such an error occurred, control transfers to n^, if not, to n^. Not valid 
after buffered I/O operations. 

IF (UNIT,i)ni,n2,n3,n4 

n-|^ not ready 

iio i cSuy aiiu no previous error 

ng EOF sensed on last input operation 

n^ parity error (buffered I/O operations) 

A write parity error on a unit being tested is not detected, as the 

operator is notified of the existing condition by the SCOPE operatir^ system. 

10.5 
BUFFER 

STATEMENTS The primary differences between buffer I/O and read/ wTite I/O statements 

are given below: 

1. The mode of transmission (BCD or binary) is tacitly implied 
by the form of the read/write control statement. In a buffer 
control statement, parity must be specified by a parity 
indicator. 
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The read/write control statements are associated with a list 
and, in BCD transmission, with a FORMAT statement. The 
buffer control statements are not associated v/ith a list; data 
transmission is to or from one area in storage. 



A buffer control statement initiates data transmission, and 
then returns control to the program, permitting the program 
to perform other tasks while data transmission is in progress. 
Before buffered data is used, the status of the buffer operation 
should be checked. A read/write control statement completes 
the operation before returning control to the program. 



In the descriptions that follow, these definitions apply. 



logical unit number 



parity key. May be specified by a simple variable (not 
subscripted). for even parity (coded characters); 
non-zero for odd parity. 




WRITE K w^ords 
[binary or BCD] 
on unit i 




EXIT 



B 



logical unit number 
recording mode 

even-BCD 

1 odd-binary 
variable identifier: 
first word of data block 
to be transmitted, 
variable identifier: 
last word of data block 
to be transmitted. 
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In the BUFFEE statements the address of B must be greater than that of 
A. A unit referenced in a BUFFEE statement may not be referenced in 
other l/O statements. 



BUFFEE IN (u,p) (A,B) 

Information is transmitted from unit u in mode p to storage locations A 
through B. The use of this statement is described in detail under BUFFEI 
in Appendix I , 

BUFFEE OUT (u,p) (A,B) 

Information is transmitted from storage locations A throu^ B and one 
logical record is written on unit u in mode p containing all the words 
from A to B inclusive. The use of this statement is described in detail 
under BUFFEO in Appendix I. 



1) COMMON/BUFF/DATA(10) , CAL(50) 
PAE^ 

BUFFEE IN(9,PAE) (DATA(l), CAL(50)) 

BCD information is input from unit 9 to the labeled common area BUFF 
beginning at DATA(l), the first word of the block, and extending 
through CAL(50) , the last word of the block. 

2) DIMENSION A (100) 
N=6 

BUFFEE OUT (N,l) (A(l), A(IOO)) 

Binary information is transmitted to unit N from the block area defined 
by A(l) and A (100), that is, all of array A is transmitted. 
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10.6 

ENCODE/DECODE 

STATEMENTS The ENCODE/DECODE statements are comparable to the BCD WRITE/READ 

statements; however, no peripheral equipment is involved. Information is 

another. The parameters in these statements are defined as follows: 

ENCODE (c,n,v)L where 

n statement number, variable identifier, or formal parameters 
representing the FORMAT statement 

L input/output list 

v variable identifier or an array identifier which supplies the starting 
location of the BCD record. 

c unsigned integer constant or a simple integer variable (not sub- 
scripted) specifying the number of characters in the record, c 
may be an arbitrary number of BCD characters. 

When encoding or decoding is performed, the first record begins with the 
leftmost character position specified by v and continues c BCD characters 
(10 BCD characters per computer word). For ENCODE, if c is not a 
multiple of 10, the record ends in the middle of a word and the remainder 
of the word is blank filled. For DECODE, if the record ends with a partial 
word the balance of the word is ignored. 

Since each succeeding record begins with a new computer word, an integral 
number of computer words is allocated for each record with £ii words. The 
number of characters allocated for any single record in the encoded 

area must not exceed 150. 

Example: 

A(l) = ABCDEFGHIJ 
A (2) = KLMNObbbbb 
B(l) = PQRSTUVWXY 
B(2) = Z12345bbbb 

1) c = multiple of 10 

ENCODE (20,1, ALPHA) A, B 
1 FORMAT (A10,A5/A10,A6) 
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ALPHA 



record a 

/N 



ABODE FGHIJ 



KLMNO 



2vC 



record b 

/'N 



bbbbb 



PQRSTUVWXY 



Z12345 



bbbb 



word 1 



word 2 



word 3 



word 4 



2) 



c ;^ multiple of 10 

ENCODE (16, 1, ALPHA) A,B 
1 FORMAT (A10,A6) 

record a 
, A , 



record b 



ALPHA ABCDEFGHIJ KLMNOb bbbb PQRSTUVWXY Z12345 bbbb 



word 1 



word 2 



word 3 word 4 
beginning of new record 



3) 



c i^ multiple of 10 

DECODE (18, 1, GAMMA) A6,B6 
1 FORMAT (AlO, A8) 



recora a 

/^ 



recora d 
/\ 



GAMMA HEADERbl21 HEADbbOl 31 HEADERbl22 HEADbb02 31 



word 1 



word 2 



word 3 word 4 
beginning of new record 



A6(l) = HEADERbl21 
A6(2) = HEADbbOlbb 
B6(l) = HEADERbl22 
B6(2) = HEADbb02bb 



ENCODE (c,n,v)L 

The information of the list variables, L, is transmitted according to the 
FORMAT (n) and stored in locations starting at v, c BCD characters per record. 
If the l/O list (L) and specification list (n) translate more than c characters per 
record, an execution diagnostic occurs. If the mmiber of characters converted 
is less than c, the remainder of the record is filled with blanks. 
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DECODE (c,n,v)L 

The information in c consecutive BCD characters (starting at address v) is 
transmitted according to the FORMAT n and stored in the list variables. If 
the number of characters specified by the I/O list and the specification list 
(n) is greater than c (record length) per record, an execution diagnostic occurs. 
If DECODE attempts to process an illegal BCD code or a character illegal 
under a given conversion specification, an execution diagnostic occurs. 



Examples : 

1) The following illustrates one method of packing the partial contents of 
two words into one word. Information is stored in core as: 

LOC(l) SSSSSxxxxx 



LOG (6) xxxxxddddd 

10 BCD ch/wd 

To form SSSSSddddd in storage location NAME: 

DECODE(10,1,LOC(6) )TEMP 

1 FORMAT (5X,A5) 
ENCODE(10,2,NAME) LOC(l),TEMP 

2 FORMAT(2A5) 

The DECODE statement places the last 5 BCD characters of LOC(6) 
into the first 5 characters of TEMP. The ENCODE statement packs the 
first 5 characters of LOC(l) and TEMP into NAME. 

With the R specification; the program may be shortened to: 

ENCODE (10,1,NAME)LOC(1),LOC(6) 
1 FORMAT (A5,R5) 

2) DECODE may be used to calculate a field definition in a FORMAT 
specification at object time. Assume that in the statement FORMAT 
(2A8,Im) the programmer wishes to specify m at some point in the 
program, subject to the restriction 2 ^m ^9. The following program 
permits m to vary. 
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IF(M.LT.10.AND.M.GT.1)1,2 
1 ENCODE (8,100,SPECMAT) M 
100 FORMAT (6H(2A8,I,I1,1H) ) 



PRINT SPECMAT,A,B,J 

M is tested to insure it is within limits. If not, control goes to state- 
ment 2 which could be an error routine. If M is within limits, 
ENCODE packs the integer value of M with the characters- (2A8 Im) 
This packed FORMAT is stored in SPECMAT. SPECMAT contains 
(2A8,Im). 

A and B will be printed under specification A8, and the quantity J tinder 
specification 12, or 13, or ... or 19 according to the value of m. 

3) ENCODE can be used to rearrange and change the information in a 
record. The following example also illustrates that it is possible to 
encode an area into itself and that encoding will destroy information 
previously contained in an area. 

I = lOHV = bbFT/SEC 
lA = 16 

ENCODE (10,1,I)I,IA,I 
1 FORMAT (A2, 12, R6) 

Before executing the above code 

I = 26545555062450230503 
After execution 

I = 26543441062450230503 

4) ENCODE/DECODE handles randomly formatted input data. The 
following example illustrates how ENCODE/DECODE is used to 
interpret format and reduce data to a desired format. 

Problem: To search for items of information when a given word in 
the input string keys the format for the rest of the string. In the 
example, EFORMAT is the key word and EF is unique in that, if EF 
starts an input record, ORMAT is assumed to follow. The appear- 
ance of EF indicates a number in the string is in E format. 
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DIMENSION IDATLIN (80) ,INTER(3) 
READ Ij IDATLIN 
1 FORMAT (80R1) 



IF((IDATLIN(1). EQ. 1RE).AND.(IDATLIN(2).EQ. IRF)) 
GO TO 5000 



5000 ENCODE(23, 900, INTER) (IDATLIN(J),J=33,55) 



900 FORMAT (23R1) 

DECODE (23, 901, INTER) NUMBER 

901 FORMAT (E23.14) 



PRINT 1000, NUMBER 
1000 FORMAT (* NUMBER = *F8.3) 

END 

7„ 



EFORMAT 3.47315999999997 E-K)02 



S, 



9 
Output will be 

NUMBER = b347. 316 
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APPENDIX SECTION 



STANDARD SCOPE CHARACTER SETS 



rr^i 1 1 ,,1 ,1. ^i_ , !_: i-ii.j^i 1-11 4.:\-i ~ :^i-^i :_* 

i n£ cnsrflcisr ssi sciccicci wncn inc s'^siciii is iiisiiiiicu siiuuiii uc ijuiiiuauuic wiiii mc luiiiicis. 

With an installation parameter, the installation keypunch format standard can be selected as 026 or 029; the 
installation parameter can also allow a user to override the standard; a user may select a keypunch mode for his input 
deck by punching 26 or 29 in columns 79 and 80 of his JOB card or any 7/8/9 end-of-record card. The mode remains 
set for the remainder of the job or until it is reset by a different mode selection on another 7/8/9 card. 
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SCOPE 3.3 

CDC 64-CHARACTER SET 



Display 




Hollerith 


Hollerith 


External 


Display 




Hollerith 


Hollerith 


External 


Code 


Character 


(026) 


(029) 


BCD 


Code 


Character 


(026) 


(029) 


BCD 


00 


: t 


8-2 


8-2 


00* 


40 


5 


Ei 


5 


05 


01 


A 


12-1 


12-1 


61 


41 


6 


(i 


6 


06 


02 


B 


12-2 


12-2 


62 


42 


7 


7 


7 


07 


03 


C 


12-3 


12-3 


63 


43 


8 


a 


8 


10 


04 


D 


12-4 


12-4 


64 


44 


9 


9 


9 


11 


05 


E 


12-5 


12-5 


65 


45 


+ 


12 


12-8-6 


60 


06 


F 


12-6 


12-6 


66 


46 


- 


11 


11 


40 


07 


G 


12-7 


12-7 


67 


47 


* 


1 1 -3-4 


11-8-4 


54 


10 


H 


12-8 


12-8 


70 


50 


/ 


1 


0-1 


21 


11 


1 


12-9 


12-9 


71 


51 


( 


0-8-4 


12-8-5 


34 


12 


J 


11-1 


11-1 


41 


52 


) 


12-8-4 


11-8-5 


74 


13 


K 


11-2 


11-2 


42 


53 


$ 


11-3-3 


11-8-3 


53 


14 


L 


11-3 


11-3 


43 


54 


= 


8-3 


8-6 


13 


15 


M 


11-4 


11-4 


44 


55 


blank 


no punch 


no punch 


20 


16 


N 


11-5 


11-5 


45 


56 


, (comma) 


0-8-3 


0-8-3 


33 


17 





11-6 


11-6 


46 


57 


. (period) 


12-8-3 


12-8-3 


73 


20 


P 


11-7 


11-7 


47 


60 


= 


o-a-6 


8-3 


36 


21 


Q 


11-8 


11-8 


50 


61 


[ 


8 7 


8-5 


17 


22 


R 


11-9 


11-9 


51 


62 


] 


0-8-2 


12-8-7 


32 


23 


S 


0-2 


0-2 


22 


63 


% 


8-6 


0-8-4 


16 


24 


T 


0-3 


0-3 


23 


64 


9t 


8-4 


8-7 


14 


25 


U 


0-4 


0-4 


24 


65 


— 


0-8-5 


0-8-5 


35 


26 


V 


0-5 


0-5 


25 


66 


V 


11-0 or 


11-0 or 


52 


27 


w 


0-6 


0-6 


26 






11-8-2 


11-8-2 




30 
31 
32 
33 
34 
35 
36 
37 


X 
Y 

z 



1 

2 
3 
4 


0-7 
0-8 
0-9 



1 

2 

3 

4 


0-7 
0-8 
0-9 



1 

2 

3 

4 


27 
30 
31 
12 
01 
02 
03 
04 


67 
70 
71 
72 

73 
74 
75 
76 


A 

< 

> 
< 
> 


O-EI-7 
11-8-5 
11-8-6 
12-0 or 
12-8-2 

11-8-7 

8-5 
12-8-5 
12-3-6 


12 

8-4 

0-8-7 

12-0 or 

12-8-2 

0-8-6 
12-8-4 
0-8-2 
11-8-7 


37 
55 
56 
72 

57 
15 
75 
76 












77 


; (semicolon) 


12-8-7 


11-8-6 


77 



tThis character is lost on even parity magnetic tape. 

*Since 00 cannot be represented on magnetic tape, it is converted to BCD 12. On input, it will be translated to display code 33 
(number zero). 



SCOPE 3.3 

ASCII 64-CHARACTER SUBSET' 



Display 




Hollerith 


Hollerith 


ASCII 


Display 




Hollerith 


Hollerith 


ASCII 


Code 


Character 


(026) 


(029) 


Code 


Code 


Character 


(026) 


(029) 


Code 


00 


: t 


8-2 


8-2 


072 


40 


5 


5 


5 


065 


01 


A 


12-1 


12-1 


101 


41 


6 


6 


6 


066 


02 


B 


12-2 


12-2 


102 


42 


7 


7 


7 


067 


03 


C 


12-3 


12-3 


103 


43 


8 


8 


8 


070 


04 


D 


12-4 


12-4 


104 


44 


9 


9 


9 


071 


05 


E 


12-5 


12-5 


105 


45 


+ 


12 


12-8-6 


053 


06 


F 


12-6 


12-6 


106 


46 


- 


11 


11 


055 


07 


G 


12-7 


12-7 


107 


47 


* 


11-8-4 


11-8-4 


052 


10 


H 


12-8 


12-8 


110 


50 


/ 


0-1 


0-1 


057 


11 


1 


12-9 


12-9 


111 


51 


( 


0-8-4 


12-8-5 


050 


12 


J 


11-1 


11-1 


112 


52 


) 


12-8-4 


11-8-5 


051 


13 


K 


11-2 


11-2 


113 


53 


$ 


11-8-3 


11-8-3 


044 


14 


L 


11-3 


11-3 


114 


54 


= 


8-3 


8-6 


075 


15 


M 


11-4 


11-4 


115 


55 


blank 


no punch 


no punch 


040 


16 


N 


11-5 


11-5 


116 


56 


, (comma) 


0-8-3 


0-8-3 


054 


17 





11-6 


11-6 


117 


57 


. (period) 


12-8-3 


12-8-3 


056 


20 


P 


11-7 


11-7 


120 


60 


# 


0-8-6 


8-3 


043 


21 
22 


Q 
R 


11-8 
11-9 


11-8 
11-9 


121 
122 


61 
62 


' (apostrophe) 

1 


8-7 
0-8-2 


8-5 
12-8-7 


047 
041 


23 


S 


0-2 


0-2 


123 


63 


% 


8-6 


0-8-4 


045 


24 


T 


0-3 


0-3 


124 


64 


"(quote) 


8-4 


8-7 


042 


25 


U 


0-4 


0-4 


125 


65 


(underline) 


0-8-5 


0-8-5 


137 


26 


V 


0-5 


0-5 


126 


66 


] 


11-0 or 


11-0 or 


135 


27 


w 


0-6 


0-6 


127 






11-8-2 


11-8-2 




30 
31 
32 
33 
34 
35 
36 


X 
Y 

z 



1 

2 
3 


0-7 
0-8 
0-9 



1 

2 

3 


0-7 
0-8 
0-9 



1 

2 

3 


130 
131 
132 
060 
061 
062 
063 
064 


67 
70 
71 
72 

73 


& 

@ 
? 

[ 

> 


0-8-7 
11-8-5 
11-8-6 
12-0 or 
12-8-2 

11-8-7 


12 

8-4 

0-8-7 

12-0 or 

12-8-2 

0-8-6 


046 
100 
077 
133 

076 


37 


4 


4 


4 


74 


< 


8-5 


12-8-4 


074 










75 


\ 


12-8-5 


0-8-2 


134 












76 


"^(circumflex) 


12-8-6 


11-8-7 


136 












77 


; (semicolon) 


12-8-7 


11-8-6 


073 



tThis character is lost on even parity magnetic tape. 

*BCD representation is used when data is recorded on even parity magnetic tape. In this case, the octal BCD/display code 
correspondence is the same as for the CDC 64-character set. 



SCOPE 3.3 
CDC 63-CHARACTER SET 



Display 




Hollerith 


Hollerith 


External 


Display 




Hollerith 


Hollerith 


External 


Code 


Character 


(026) 


(029) 


BCD 


Code 


Character 


(026) 


(029) 


BCD 


00 


(none)t 






16 


40 


5 


5 


5 


05 


01 


A 


12-1 


12-1 


61 


41 


6 


6 


6 


06 


02 


B 


12-2 


12-2 


62 


42 


7 


-7 


7 


07 


03 


C 


12-3 


12-3 


63 


43 


8 


8 


8 


10 


04 


D 


12-4 


12-4 


64 


44 


9 


9 


9 


11 


05 


E 


12-5 


12-5 


65 


45 


+ 


i:i 


12-8-6 


60 


06 


F 


12-6 


12-6 


66 


46 


- 


11 


11 


40 


07 


G 


12-7 


12-7 


67 


47 


• 


11-8-4 


11-8-4 


54 


10 


H 


12-8 


12-8 


70 


50 


/ 


0-1 


0-1 


21 


11 


1 


12-9 


12-9 


71 


51 


( 


0-8-4 


12-8-5 


34 


12 


J 


11-1 


11-1 


41 


52 


) 


12-8-4 


11-8-5 


74 


13 


K 


11-2 


11-2 


42 


53 


$ 


11-8-3 


11-8-3 


53 


14 


L 


11-3 


11-3 


43 


54 


= 


8-3 


8-6 


13 


15 


M 


11-4 


11-4 


44 


55 


blank 


no punch 


no punch 


20 


16 


N 


11-5 


11-5 


45 


56 


, (comma) 


0-8-3 


0-8-3 


33 


17 





11-6 


11-6 


46 


57 


. (period) 


12-8-3 


12-8-3 


73 


20 


P 


11-7 


11-7 


47 


60 


s 


0-8-6 


8-3 


36 


21 


Q 


11-8 


11-8 


50 


61 


[ 


8-7 


8-5 


17 


22 


R 


11-9 


11-9 


51 


62 


] 


0-8-2 


12-8-7 


32 


23 


S 


0-2 


0-2 


22 


63 


:(colon)t 


8-2 


8-2 


00* 


24 


T 


0-3 


0-3 


23 


64 


* 


8-^1 


8-7 


14 


25 


U 


0-4 


0-4 


24 


65 


— 


0-8-5 


0-8-5 


35 


26 


V 


0-5 


0-5 


25 


66 


V 


11-0 or 


11-0 or 


52 


27 


w 


0-6 


0-6 


26 






11-8-2 


11-8-2 




30 


X 


0-7 


0-7 


27 


67 


A 


0-8-7 


12 


37 


31 


Y 


0-8 


0-8 


30 


70 


t 


11-8-5 


8-4 


55 


32 


z 


0-9 


0-9 


31 


71 


1 


11-8-6 


0-8-7 


56 


33 
34 




1 




1 





12 


72 


< 


12-0 or 


12-0 or 


72 


1 


01 






12-8-2 


12-8-2 




35 


2 


2 


2 


02 












36 


3 


3 


3 


03 


73 


> 


11-8-7 


0-8-6 


57 


37 


4 


4 


4 


04 


74 


< 


8-!:i 


12-8-4 


15 












75 


> 


12-8-5 


0-8-2 


75 












76 


-n 


12-8-6 


11-8-7 


76 












77 


; (semicolon) 


12-8-7 


11-8-6 


77 



tWhen the 63-Character Set is used, the punch code 8-2 is associated with display code 63, the colon. Display code OOg is not included in 
the 63-Character Set and is not associated with any card punch. The 8-6 card punch (026 keypunch) and the 0-8-4 card punch (029 key- 
punch) in the 63-Character Set are treated as blank on input. 

*Since 00 cannot be represented on magnetic tape, it is converted to BCD 12. On input, it will be translated to display code 33 
(number zero). 



On 
O 

I — > 
-J 

8 



SCOPE 3.4 
STANDARD CHARACTER SETS 





ASCII 




Hollerith 


External 


ASCII 






ASCII 




Hollerith 


External 


ASCII 




CDC 


Graphic 


Display 


Punch 


BCD 


Punch 


ASCII 


CDC 


Graphic 


Display 


Punch 


BCD 


Punch 


ASCII 


Graphic 


Subset 


Code 


(026) 


Code 


(029) 


Code 


Graphic 


Subset 


Code 


(026) 


Code 


(029) 


Code 


:t 




oot 


8-2 


00 


8-2 


3A 


6 


6 


41 


6 


06 


6 


36 


A 


A 


01 


12-1 


61 


12-1 


41 


7 


7 


42 


7 


07 


7 


37 


B 


B 


02 


12-2 


62 


12-2 


42 


8 


8 


43 


8 


10 


8 


38 


c 


C 


03 


12-3 


63 


12-3 


43 


9 


9 


44 


9 


11 


9 


39 


D 


D 


04 


12-4 


64 


12-4 


44 


+ 


-H 


45 


12 


60 


12-8-6 


2B 


E 


E 


05 


12-5 


65 


12-5 


45 


- 


- 


46 


11 


40 


11 


2D 


F 


F 


06 


12-6 


66 


12-6 


46 


* 


* 


47 


11-8-4 


54 


1 1 -8-4 


2A 


G 


G 


07 


12-7 


67 


12-7 


47 


1 


/ 


50 


0-1 


21 


0-1 


2F 


H 


H 


10 


12-8 


70 


12-8 


48 


( 


( 


51 


0-8-4 


34 


12-8-5 


28 


1 


1 


11 


12 9 


71 


12-9 


49 


) 


) 


52 


12-8-4 


74 


11-8-5 


29 


J 


J 


12 


11-1 


41 


11-1 


4A 


$ 


$ 


53 


11-8-3 


53 


11-8-3 


24 


K 


K 


13 


11-2 


42 


11-2 


48 


= 


= 


54 


8-3 


13 


8-6 


3D 


L 


L 


14 


11-3 


43 


11-3 


4C 


blank 


blank 


55 


no punch 


20 


no punch 


20 


M 


M 


15 


114 


44 


11-4 


40 


, (comma) 


, (comma) 


56 


0-8-3 


33 


0-8-3 


2C 


N 


N 


16 


115 


45 


11-5 


4E 


. (period) 


. (period) 


57 


12-8-3 


73 


12-8-3 


2E 


o 





17 


116 


46 


11-6 


4F 


= 


if 


60 


0-8-6 


36 


8-3 


23 


P 


P 


20 


11-7 


47 


11-7 


50 


[ 


[ 


61 


8-7 


17 


12-8-2 


5B 


Q 


Q 


21 


118 


50 


11-8 


51 


1 


1 


62 


0-8-2 


32 


11-8-2 


5D 


R 


R 


22 


119 


51 


11-9 


52 


%tt 


% 


63 


8-6 


16 


0-8-4 


25 


s 


S 


23 


0-2 


22 


0-2 


53 


i^- 


" (quote) 


64 


8-4 


14 


8-7 


22 


T 


T 


24 


0-3 


23 


0-3 


54 


~> 


(underline) 


65 


0-8-5 


35 


0-8-5 


5F 


U 


U 


25 


0-4 


24 


0-4 


55 


V 


! 


66 


1 1 -0 or 


52 


12-8-7 or 


21 


V 


V 


26 


0-5 


25 


0-5 


56 








11-8-2ttt 




11-Ottt 




W 


W 


27 


0-6 


26 


0-6 


57 


A 


& 


67 


0-8-7 


37 


12 


26 


X 


X 


30 


0-7 


27 


0-7 


58 


t 


' (apostrophe) 


70 


11-8-5 


55 


8-5 


27 


Y 


Y 


31 


0-8 


30 


0-8 


59 


i 


? 


71 


1 1 -8-6 


56 


0-8-7 


3F 


z 


Z 


32 


0-9 


31 


0-9 


5A 


< 


< 


72 


12-0 or 


72 


12-8-4 or 


3C 








33 





12 





30 








12-8-2ttt 




12-Ottt 




1 


1 


34 


1 


01 


1 


31 


> 


> 


73 


11-8-7 


57 


0-8-6 


3E 


2 


2 


35 


2 


02 


2 


32 


< 


@ 


74 


8-5 


15 


8-4 


40 


3 


3 


36 


3 


03 


3 


33 


> 


\ 


75 


12-8-5 


75 


0-8-2 


5C 


4 


4 


37 


4 


04 


4 


34 


^ 


x^(circumflex) 


76 


1 2-8-6 


76 


1 1 -8-7 


5E 


5 


5 


40 


5 


05 


5 


35 


; (semicolon) 


; (semicolon) 


77 


12-8-7 


77 


1 1 -8-6 


38 






tTwelve or more zero bits at the end of a 60-bit word are interpreted as end-of-line mark rather than two colons. End-of-line mark is converted to 
external BCD 1632. 
ttin installations using the CDC 63-graphic set, display code 00 has no associated graphic or Hollerith code; display code 63 is the colon (8-2 punch). 
tttThe alternate Hollerith (026) and ASCII (029) punches are accepted for input only. 



HEXADECIMAL-OCTAL CONVERSION TABLE 



^^ 


First 



Hexac 
1 


lecimal 

2 


Digit 
3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 




Second 

Hexadecimal 

Digit 



1 


000 


020 


040 


060 


100 


120 


140 


160 


200 


220 


240 


260 


300 


320 


340 


360 




001 


021 


041 


061 


101 


121 


141 


161 


201 


221 


241 


261 


301 


321 


341 


361 




2 


002 


022 


042 


062 


102 


122 


142 


162 


202 


222 


242 


262 


302 


322 


342 


362 




3 


003 


023 


043 


063 


103 


123 


143 


163 


203 


223 


243 


263 


303 


323 


343 


363 




4 


004 


024 


044 


064 


104 


124 


144 


164 


204 


224 


244 


264 


304 


324 


344 


364 




5 


005 


025 


045 


065 


105 


125 


145 


165 


205 


225 


245 


265 


305 


325 


345 


365 




6 


006 


026 


046 


066 


106 


126 


146 


166 


206 


226 


246 


266 


306 


326 


346 


366 




7 


007 


027 


047 


067 


107 


127 


147 


167 


207 


227 


247 


267 


307 


327 


347 


367 




8 


010 


030 


050 


070 


110 


130 


150 


170 


210 


230 


250 


270 


310 


330 


350 


370 




9 


on 


031 


051 


071 


111 


131 


151 


171 


211 


231 


251 


271 


311 


331 


351 


1 

371 




A 


012 


032 


052 


072 


112 


132 


152 


172 


212 


232 


252 


272 


312 


332 


352 


372 




B 


013 


033 


053 


073 


113 


133 


153 


173 


213 


233 


253 


273 


313 


333 


353 


373 




C 


014 


034 


054 


074 


114 


134 


154 


174 


214 


234 


254 


274 


314 


334 


354 


374 




D 


015 


035 


055 


075 


115 


135 


155 


175 


215 


235 


255 


275 


315 


335 


355 


375 
376 




E 


016 


036 


056 


076 


116 


136 


156 


176 


216 


236 


256 


276 


316 


336 


356 




F 


017 


037 


057 


077 


117 


137 


157 


177 


217 


237 


257 


277 


317 


337 


357 


377 




Octal 


000- 

037 


040- 

077 


100 -- 


137 


140- 


177 


200- 


237 


240 - 


277 


300- 


337 


340- 


377 
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FORTRAN STATEMENT LIST 



B 



OU13Jr'JttUU±lAM SIA iii;M£JJNT» 



Entry Points 



ENTRY name 

PROGRAM name (fi, . . . .f^) 



N 
N 



Page 

7-8 
7-3 



SUBROUTINE name (pi , . . . .p^) 



N 



7-4 



FUNCTION name (p^ p^^) 

type FUNCTION name (p^^, . . , .p^) 



7-13 
7-13, 7-15 



Intersubroutine EXTERNA L name^^ » nam eg . 



N 



7-6 



T:ransfer 
Statements 



CALL name 

CALL name (Pj^, . . . .p^^) 

RETURN 



E 


7-5 


E 


7-5 


E 


6-10 



N = Non- executable 



E = Executable 



60174900 Rev. F 



B-1 



DATA DECLARATION AND STORAGE ALLOCATION 

Type Declaration COMPLEX Kst 

DOUBLE PRECISION List 
DOUBLE List 
REAL List 
INTEGER list 
LOGICAL list 
TYPE DOUBLE List 
TYPE COMPLEX List 
TYPE REAL List 
TYPE INTEGER list 
TYPE LOGICAL list 

DIMENSION vn . v<, v_ 

i- ■^- • ii 

COMMON/i^/list^^/ig/listg. . ./ijj/Iistjj 
EQUIVALENCE (A,B,. . .),(A1,B1, ...).. • 

DATAdi,...,dj^/ai,k*a2 a^^/.d^, . . . .d^^/ 

DATA (i2^=value list) , (i2=value list) , . . . 
BLOCK DATA 
BLOCK DATA name 

ARITHMETIC STATEMENT FUNCTION 

name (Pi,P2» . • •Pn) ~ Expressions 

SYMBOL MANIPULATION, CONTROL AND I/O 

Replacement A=E Arithmetic 



Page 



Storage 
Allocations 



N 


5-1 


N 


5-1 


N 


5-1 


N 


5-1 


N 


5-1 


N 


5-1 


N 


5-1 


N 


5-1 


N 


5-1 


N 


5-1 


N 


5-1 


N 


5-2 


N 


5-3 


N 


5-7 


N 


5-9 


N 


5-12 


N 


5-13 


N 


5-13 



7-14 



4-2 



L=E Logical/Relational 
M=E Masking 



4-4 
4-4 
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Page 



Transfers 



GO TO n 
GO TOm 



GOTO(n^ njn),i 



IF (c)ni,n2,n3 
IF (je)ni,n2 
IF (je)s 

IF (ENDFILE i)ni,n2 
IF (EOF,i)n]^,n2 



IF (UNIT,i)ni,n2,n3,n4 
IF (IOCHECK,i)nj,n2 
LOOP CONTROL DO n i = m-,^, 1112,1313 

MISCELLANEOUS PROGRAM CONTROLS 

ASSIGN s to m 
n CONTINUE 
PAUSE 
PAUSE n 

STOP 
STOPn 



I/O FORMAT 



FORMAT (spec]^,... ,k(speCjjj,. ..),, 
NAMELIST/yi/ai/y2/a2/. . . hj^ 





D 1 

u— i 


E 


6-1 


E 


6^1 


E 


6-2 



N 
N 



E 


6-3 


E 


6-3 


E 


6-3 


E 


10-10 


E 


10-10 



E 


10-10 


E 


10-10 1 


E 


6-4 



E 


6-1 


E 


6-10 


E 


6-10 


E 


6-10 


E 


6-10 


E 


6-10 



9-4 
10-6 
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I/O CONTROL STATEMENTS page 

BUFFER IN (u,p) (A,B) 

BUFFER OUT (u,p) (A,B) 

DECODE (c,n,v)L 

ENCODE (c,n,v)L 

PRINT n,L 

PUNCH n, L 

READ (i)L 

READ (i,n)L 

READ INPUT TAPE i,n,L 

READn.L 

READ TAPE i,L 

WRITE (i>L 

WRITE {i,n)L 

WRITE OUTPUT TAPE i,n,L 

WRITE TAPE i,L 

I/O Tape Handling END FILE i 

Handling 

REWIND i 

BACICSPACE i 
PROGRAM AND SUBPROGRAM TERMINATION 

END E 6-11 

END name E 6-11 



SEGMENTATION 



CALL OVERLAY (fn.l^.lg.p) 
CALL SEGMENT (fj^.e.a.lib.m) 
SEGZERO (sn,pnj,pn2,...,pn|) 
SECTION (sname.pnj^jpcig,. . . .pnj) 



E 


10-12 


E 


10-12 


E 


10-15 


E 


10-13 


E 


10-2 


E 


10-2 


E 


10-5 


E 


10-4 


E 


10-4 


E 


10-4 


E 


10-5 


E 


1 n=^ 


E 


10-2 


E 


10-2 


E 


10-3 


E 


10-9 


E 


10-9 


E 


10-9 



E 


8-5 


E 


8-2 


E 


8-7 


E 


8-7 
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FORTRAN FUNCTIONS 



IN-LINE FUNCTIONS 



Form 

ABS(X) 
AIMAG(C) 

AINTPQ 



AMAX0(I^,l2' 
AMAX1(X ,X , 

AMINO(I J^' 
AMINICX^.X^, 



AMOD(X^,X2)t 

AND(X^,...,X^) 

CMPLXCX^.X^) 

COMPL(X) 

CONJG(C) 

DIMCX^.X^) 



DMAX1(D^,D2, 



DMIN1(D^,D2, 



FLOAT(I) 
lABS(I) 

IDIM(I^,l2> 



Definition 



Actual 
Parameter 



Absolute value Real 

Obtain the imaginary part of a complex argument Complex 

Real 



Truncation integer. Sign of X times largest 
integer ^ | X | . 

Determine maximum argument 
Determine maximum argument 
Determine minimum argument 
Determine minimum argument 



Boolean AND of X , 



,X_ 



Convert real to complex (X + iX ) 
Complement of X 
Conjugate of C 

If X^s X^:0 

Determine maximum argimient 

Determine minimum argvmient 

Integer to real conversion 
Absolute value 



"ii=^V" 



Integer 
Real 



Mode of 
Result 

Real 
Real 

Real 
Real 
Real 



Integer 


Real 


Real 


Real 


Real 


Real 


- 


Logical 


Real 


Complex 


- 


Logical 


Complex 


Complex 


Real 


Real 


Double 


Double 


Double 


Double 


Integer 


Real 


Integer 


Integer 


Integer 


Integer 



tAMOD(Xi,X2) is defined as Xi-[X-,^/X2]X2, where [x] is an integer with magnitude of not more than 
the magnitude of x and sign the same as x. 
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Form 

I IFIX(X) 

INTCX) 



ISIGN(I^,l2) 

MAX0(I^,l2"") 
MAX1(X^,X2,...) 

MIN0(I^,l2'-") 
MINlCX^.Xg,...) 

MODa^.y''' 
OR(X^,...,X^) 

REAL(C) 

SIGN(X^,X2) 



Definition 

Real to integer conversion. Same as INT 

Trimcation, integer. Sign of X times 
largest integer ^\x\. 

Sign of I times absolute value of I . 
Determine maximum argument 
Determine maximum argument 
Determine minimum argument 
Determine minimum argument 



Boolean OR of X , 



>X, 



Obtain the real part of a complex argument 
Sign of X times absolute value of X . 



Actual 




Parameter 


Mode of 


Type 


Result 


Real 


Integer 


Real 


Integer 


Integer 


Integer 


Integer 


Integer 


Real 


Integer 


Integer 


Integer 


Real 


Integer 


Integer 


Integer 


- 


Logical 


Complex 


Real 


Real 


Real 



LIBRARY FUNCTIONS 



ACOS(X) 


Arccosine in radians 


Real 


Real 


ALOG(X) 


Natural log of X 


Real 


Real 


ALOG10(X) 


Log to the base 10 of X 


Real 


Real 


ASIN(X) 


Arcsine in radians 


Real 


Real 


ATAN(X) 


Arctangent in radians 


Real 


Real 


ATAmQi^,X^) 


Arctangent (X-^/X2) in radians 


Real 


Real 


CABS(C) 


Absolute value 


Complex 


Real 


CCOS(C) 


Complex cosine , ailment in radians 


Complex 


Complex 


CEXP(C) 


Complex exponent 


Complex 


Complex 


CLOG(C) 


Complex log 


Complex 


Complex 


COS(X) 


Cosine X radians 


Real 


Real 


CSIN{C) 


Complex sine , argument in radians 


Complex 


Complex 


CSQRT(C) 


Complex square root 


Complex 


Complex 


DABS(D) 


Absolute value 


Double 


Double 


DATANP) 


Double arctangent in radians 


Double 


Double 


DATAN2m ,DJ 

J. £j 


Double arctangent: D /D in radians 


Double 


Double 



tMOD(I]^,l2) ^^ defined as li-[[i/l2]^2' where [x] is an integer with magnitude not more than the 
magnitude of x and sign the same as x. 
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Form 

DBLE(X) 
DCOS(D) 
DEXP(D) 
DLOG(D) 

T^ T fV~1 1 A jTW 
U±J\J\JIJ. V \JL^^ 

DM0D(D^,D2)t 

DSIGN{D^,D ) 

DSIN(D) 

DSQRT(D) 

EXP(X) 

IDINT(D) 

LEGVAR(A) 

LENGTH(I) 

EANF(X) 



SNGL(D) 

SIN(X) 

SQRT(X) 

TAN(X) 

TANH(X) 



Definition 

Real to double 

Double cosine, argument in radians 

Double exponent 

Natural log of D 






I I \ /-Y-i- I 1 



Sign of: D times absolute value of D 

Sine of double precision argument in radians 

Double square root 

e to Xth power 

Double to integer. Sign of D times largest 
integer ^|d| . 

Returns -1 if variable is indefinite, +1 if 
out of range, and if normal 

Returns number of words transferred to 
CM from unit I after BUFFER IN 

Random number generator; typical call 
follows: Y=RANF(X) where X is type 
real. Three conditions exist on X. 

1. If X is zero, the next uniformly distributed 
random number in the range [0, 1) is 
generated and returned. 

2. If X is negative, a random number is 
not generated but the last previously 
generated random nimiber (or the seed 

if no random number has been generated) 
is returned, 

3. If X is positive, the exponent part of X is 
set to 1717g and the low order bit is set to 
one. This result is returned as the seed 
of a new sequence, and any additional 
calls to RANF will be based on a sequence 
using this seed. 

Double to real (unrounded) 

Sine X radians 

Square root of X 

Tangent X radians 

Hyperbolic tangent X radians 



Actual 




Parameter 


Mode of 


Tvoe 


Result 


Real 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Real 


Real 


Double 


Integer 



Real 



Integer 



Real 



Integer 
Integer 
Real 



Double 


Real 


Real 


Real 


Real 


Real 


Real 


Real 


Real 


Real 



t DM0D(D]^,D2) is defined as D-|^-[D2/D2]D2, where [x] is an integer with magnitude of not more than 
the magnitude of x and sign tiie same as x. 
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Following functions accept A as a variable address name for an actual parameter: 



Form Definition 



LOCF(A) Returns address of argument A 

XLOCF(A) Returns address of argument A 



Actual 




Parameter 


Mode of 


Type 


Result 


- 


Integer 


- 


Integer 



C-4 60174900 Rev. C 



SOME FORTRAN II, 63, IV DIFFERENCES 



The following FORTRA.N II statements are accepted by FORTRAN: 

1. In FORTRAN II arithmetic replacement statements, column 1 may contain either of the following 
characters. 

D Double Precision mode 
I Complex mode 

When these characters are encountered, all variables and constants in the statement are assumed 
to be of the same type (double precision or complex) . 

2. FORTRAN 11 statements which contain a B in column 1 (Boolean) are evaluated as masking expres- 
sions. The operator equivalences are: 

FORTRAN FORTRAN II 



.AND. * 

.NOT, 

.OR. + 

none / 

Exclusive OR function defined as: 



2 


v_ 


p/v 


1 


1 





1 





1 





1 


1 












3. Mixed mode variables may appear in any FORTRAN II Boolean, B-type, Statement. 

4. SENSE LIGHT STATEMENTS 
SENSE LIGHT i 

The statement turns on SENSE light i; i must be an integer constant in the range 1 to 6. 



tNew programs should be written in FORTRAN IV as these FORTRAN II features will become I 
obsolete. I 
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SENSE LIGHT turns off all sense lights. 
IF (SENSE LIGHT i)n ,n 

J. ^ 

The statement tests sense light i. If it is on, it is turned off, and a jump occurs to statement 
n . If it is off , a jump occurs to statement n . The n . are statement labels; i must be an 
imeger constant in the range 1 to 6 . ^ 

5. IF SENSE SWITCH STATEMENT 
IF (SENSE SWITCH i)n ,n 

JL ^ 

If sense switch i is set (on), a jump occurs to statement n . If it is not set (off), a jump 
I occurs to statement n ; i must be an integer constant (1 to 6). 

6. FAULT CONDITION STATEMENTS 

At execute time, the computer may be set to interrupt on divide overflow or exponent fault. The 
fault indicator must be checked immediately after any statement that could possibly cause a faiilt 
condition, 

IF DIVIDE CHECK n ,n 



A divide check occurs following division by zero. The statement checks for this condition: if it 

has o< 

place 



has occurred jump to statement n^ takes place. If no check exists, a jump to statement n takes 



IF QUOTIENT OVERFLOW n ,n 

IF ACCUMULATOR OVERFLOW n ,n 

An overflow occurs when the result of a real, double precision, or complex arithmetic operation 
exceeds the upper limits specified for these types. Results that are less than the lower limits 
are set to zero without indication. This statement is therefore a test for floating point overflow 
only. If the condition has occurred, a jump to statement n takes place. If the condition does 
not exist, a jump to statement n takes place, 

7. FORTRAN accepts the FORTRAN H version of the EXTERNAL statement. This form contains 
the same name list, but the word EXTERNAL has been replaced by the character F in column 1 
of the statement. 

1 7 



name ,name , 



8 . The only inherently incompatible areas are the following: 

COMMON -EQUIVALENCE Statement Relationships 

In FORTRAN II, equivalence groups can reorder the common variables and arrays, 
and more than one variable in an equivalence group can be in common. 



D-2 
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In FORTRAN, equivalence groups do not reorder common, but may only extend the 
length of a common block. 

"""tToR^S^NnXtlloW rules apply for function subprogram, library function a.d 

statement function names: 

The name is 4-7 alphanumeric characters, ending with the character F. 

The first character must be X if, and only if, the value of the function is integer; for 

any other first character, the value of the function is real. 

In FORTRAN, the number of characters in the function name is 1-7; the first character 
must be alphabetic. 



FORTRAN 63 and FORTRAN IV DIFFERENCES 



DO STATEMENT 

If the terminal value of the DO statement (m^) is less than the initial value (m^): 

FORTRAN IV DO loop is executed once 
FORTRAN 63 DO loop is not executed 



END STATEMENT 



FORTRAN IV 



FORTRAN 63 



in subprograms, the END statement not preceded by a 
RETURN statement will cause the compilation of termination 
instruction (STOP) 

similar condition is compiled with an assumed RETURN 
statement 
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COMPUTER WORD STRUCTURE OF CONSTANTS -6600 



INTEGER 



i 



ON— I 



REAL 



i 



SIGN-" 



BIASED 
EXP 



FRACTION (m) 



HOLLERITH BCD AND 
DISPLAY CODE 



59 5453 4847 4241 3635 3029 2423 



Ol 


02 


03 


04 


as 


as 


a? 


Ob 


og 


aio 



DOUBLE-PRECISION 



a 



7 



BIASED 
EXP 



MOST SIGNIFICANT 



/A BIASED 
EXP -48 



a 



LEAST SIGNIFICANT 



COMPLEX 



^ 


BIASED 
EXP 


m 



.7 



^ 


BIASED 
EXP 


m 



J 



LOGICAL 



FALSE 
TRUE 



OCTAL 



57 54 51 48 45 42 39 36 



<*20'*I9 ^18^17^16 ^15 fl4 



3 3 3 3 3 3 3 



12 9 6 3 



^4 ^3 ^2 ^1 



3 3 3 3 
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COMPILATION AND EXECUTION 



FORTRAN Control Card 

The FORTRAN compiler is called by the control card: 

RUN (cm, fl,bl, if, of, rf, Ic, as, cs) 

If parameters are omitted, RUN must be followed by a period. I 

cm Compiler mode option; (if omitted, assume G; if unrecognized, assume S) 

G compile and execute, nolist unless explicit LIST cards appear in the deck 

S compile with source list, no execute 

t p compile with source list and punch deck on file PUNCHB, no execute 

L compile with source and object list which contains mnemonics, no execute 

t M compile with source and object list which contains mnemonics, produce a punch deck 
on file PUNCHB, no execute 

fl object program field length (octal); if omitted, it is set equal to the field length at 

compile time. A value of 1000 octal is used if a smaller value is specified. | 

bl object program I/O buffer lengths (octal); if omitted, assumed to be 2022^ 

if file name for compiler input; if omitted assumed to be INPUT 

of file name for compiler output; if omitted, assumed to be OUTPUT 

rf file name on which the binary information is always written; if omitted, assumed to be LGO. 

Ic line-limit (octal) on the OUTPUT file of an object program. K omitted, assumed to be 

lOOOOo. If the line coimt exceeds the specified line limit, the job is terminated. 



as 



ANSI switch. If omitted the conventional RUN l/O list and FORIvIAT interaction is used, 
otherwise the ANSI intrepetation is used. 

cs cross reference switch. If omitted no cross reference listing is produced; otherwise 

the cross reference listing is produced. 

A dayfile message indicates that an error has been detected in the RUN card fields 2-7: 

RUN CARD FIELD IN ERROR- xxxxxxxxxx 
xxxxxxxxxx is the iapat field in error. 



^ Because COMPASS allows only one binary output file to be written, a RUN (P or M) and LGO. will 
result in only the FORTRAN code of a FORTRAN -COMPASS job being placed on LGO. If P or M 
compile mode options are used and the sixth parameter is PUNCHB, two binary decks will be 
punched. 
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Compiler output, except in the G mode, includes a reproduction of the source program, a variable 
map, and indications of fatal and non-fatal errors detected during compilation. If the G mode is 
selected, all output is suppressed unless fatal errors are detected in which case the output is the 
same as indicated for the S mode of compilation. If the L or M mode is selected, the output includes 
an object list which contains mnemonics. 

A copy of the compiled programs is always left in disk storage as a binary record on a file named 
either LGO or the name specified as the rf parameter in the call to the compiler. The compiled 
program may be called and executed repeatedly, until the end of job occurs, by using the name of 
the load-and-go file. In the output file at the end of compilation of each subprogram, the compiler 
indicates the amount of unused compilation space . 

Two control cards LIST and NOLIST are available to allow the programmer more flexibility in 
requesting a list of his programs. These cards are free field beyond column 6 and appear between 
subprograms. When the LIST card is detected, the source cards of the following programs are 
listed. If the compiler mode was L, the object code is also listed. When the NOLIST card is 
detected, no more listing takes place until a LIST card is detected. Each LIST card will probably 
cause repositioning of the output file, therefore excessive LIST -NOLIST sequences should be avoided. 

T'r^ rkiA ■;■»^ ■J-T-.o -r^-nr^^^r^-nn-l^ ^-^ ^-P ^.,^»,T „«J ^^ A £it AT "Eli-VD mxj A XT -1 _, Jl - i _ _ jj „ _. . _^ 

^ «^ £i*5— •»* w.i^ y ^ ■^y<A.j. iA.i,A.\Ji.A. xyj. vj' V «^j. jLcijr tiil^j o c;g lj.j.\J±j.i. xlltJci, .bUiJ X Oiv x j-uTi IN CUIilpiicI J UpOXi UebeCtlllg' ixii 

OVERLAY or SEGMENTf card between subprograms, transfers them to the load-and-go file, and 
to the PUNCHB file if the P or M option is selected. They also are transferred to the output file. 

The following types of control cards are transferred to the load-and-go and PUNCHB file if mode 
is P or M. 

OVERLAY (... 

tSECTION (... 

(These statements must begin after column 6) 

tSEGZERO ( 
tSEGMENT ( 



fSegments are available under SCOPE 3.3 but not under SCOPE 3.4, therefore the use of 
segments should be discouraged. 
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FORTRAN SOURCE DECK 



I i-om 



/ FORTRAN Statements, 



'SUBROUTINE name 



/ 



END 



r 



FORTRA.N Statements 



/program name{file1,file2,. 



END 



^ FORTRAN Statements 
^FUNCTION name(p1,p2,...) 



/ 



END 



r 



FORTRAN Statements . 



SUBROUTINE name 
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COMPILE & EXECUTE WITH SOURCE LISTING 



/i 

7 

9 r^- 



f 



Data Deck. 



/T 

8 

9 r 



/T 
8 
9 



f 



PORTRAIT Source Deck. 



/LGO. 



^RUN(S) 



/SAMPLE,T10,CM45000. 



Execution will not take place 
if LGO. card is omitted. 



COMPILE, EXECUTE & PUNCH OBJECT DECK 



/6 

7 

8 r 



9 r^ 



f 



Data Deck. 



8 

9 r 



f 



FORTRAN Source Deck. 



/lgo. 



1 



/COPYBF (LGO, PUNCHB) 



/RUN(S) 



Job Card. 



Job will not execute if 
LGO. card is omitted. 
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EXECUTE OBJECT DECK 



Two 7/8/9 record 
separators must be 
used. 





/ 6 

7 
8 
9 r 












/ 






/ 






1 






f Data Deak^ 






/ 1 

8 
9 










/ 7 
8 
9 
r 




- 


- 


/ 




/ 




1 










f OiDQeat Deck. 






/ 7 
8 
9 










/INPUT. 




/job Card. 
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COMPILE & EXECUTE USING OBJECT SUBPROGRAMS 



TVfl'AT)/r\Tr'Tr\ olimina1-f»Q 



V / 



the Loader Map Printout. 



/s 

7 

8 r 

9 f^ 



Data Deak. 



'1 
8 

9 /7 



8 

9 ^ 



/T 

8 



/ Oh sect Deok. 



/ FORTRAN Source Deck, 



^EXECUTE. 



^ LOAD(LGO) 



^ LOAD(INPUT) 



^MAP(OFI 



/ RUN(S) 

/Job Card. 
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COMPILE & EXECUTE SAME PROGRAM 3 TIMES USING DIFFERENT DATA DECKS 



o 

9 r 

r 
fi — 



Data Deak, 



Saving the object routine as an 
OVERLAY reduces loading time. 



r 



Data Deak. 



f 



Data Deck, 



7 
8 

' A 



/ FORTRAN Source Deak, 
/ OVERLAY (BIRD,0,0) 



/bird. 

"/ NOGO. 



/bird, 
/bird. 



/ LOAD(LGO) 



/RUN(S) 



/Job Card 
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COMPILE & EXECUTE USING MAGNETIC TAPE 



f 



Data Beak. 



/ FORTRAN Source Beak. 
^PROGRAM ME(TAPE1,TAPE2,TAPE3) 



/ 



/ 



LGO(,SCR) 



RIINfQ) 



y—i- -^ I 

f REQUEST(TAPE3,MT) **ASSIGN TAPE AND SAVE** 



/rEQUEST(SCR,MT) **ASSIGN scratch T APE' 
/rEQUEST(TAPE1,MT) **M0UNTTAPE 31415* 

/joh Card. 



VSJS parameters 
should be provided 
for SCOPE 3.4. 



Request cards displayed on 
console for the operator. 
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COMPILE WITH COMPASS ASSEMBLY & EXECUTE 



Notes : 



Parameter addresses are in registers B1-B6, respectively, upon entry into sutprograms. (If 
more than 6 parameters are required see FORTRAN 6000 Version 2.3 reference manual or 
use COMMON.) 

FUNCTION value is returned in X6 or X6-X7 for COMPLEX or DOUBLE PRECISION functions. 

No registers need to be saved or restored. 



IDENT must be punched 
in columns 11-15 with 
1-10 and 16 blank. 



END must be pimched 
in columns 11, 12, 13, 
with 1-11 and 14 blank. 



f 



Data Deck, 



/ END 



/ COMPASS Source Deck, 



/ IDENT 



/ FORTRAN Source Deak. 



/Too. 



r^ 



^RUN(S) 



T^ J- n 



OD Lara. 
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OVERLAY AND SEGMENT CONTROL CARDS 



SEGMENT (sn,pnj^,pn2,...,pnn) 

sn Segment name to write on 



pn, 



Subprogram or section name 



SEGZERO (sn,pn]^,pn2,...,pnjj) 



sn 



pn. 



SECTION (sn,pnj^, 
sn 
pn, 



Segment name to write on 
Subprogram or section name 

,PV 

Section name to write on 

Subprogram name 



Segment Definitions 



First Segment Definition 



Section Definition 



OVERLAY (fname,i,j,Cn) 

fname File name on which overlay is to be written 

i Primary overlay number, octal 

j Secondary overlay number, octal 

Cn n is 6 octal digits indicating start of load 

relative to blank common 



Overlay Definition 



tSEGMENT, SEGZERO, and SECTION are not in SCOPE 3.4 
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OVERLAY PREPARATION 



/F 



UZ 



Data 



L 



END 



PROGRAM MLT 



Primary 
Overlay 
(1,0) < 

Source 
Deck 



Main 
Overlay 
(0,0) < 

Source 
Deck 



0VERLAY(FRANK,1,i: 



Secondary 
Overlay 

\ (1,1) 
Source 
Deck 



END 



L 



CALL OVERLAY (5HFRANK,1,1,0) 



PROGRAM RDY 



OVERLAY(FRANK,1,0) 



END 



G; 



SUBROUTINE GROUCH(X) 

L 



-Call to 
Primary 
^ ^ Overlay 
FRANK 1,0 



END 



/ CALLOVERLAY(5HFRANK,1,0',0) 
y CALL GROUCH(4Q.O) 



Til 



^ / PROGRAM LE0(INPUT,0UTPUT,fAPE1 



/ uv cni_M T \rnMi>irs.,u,u/ 



FRANK. 

/nogo. 



^LOAD(LGO) 
^ RUN(S) 



Job Card. 
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FORTRAN LOAD AND EXECUTE SEGMENTS t 



I^END 



q: 



data 



SUBROUTINE SUB2 



Preparation of 
SEGMENT call 



Preparation of 
SEGMENT call 



subroutine start2 
/end 



1 



'''CALL SEGMENT (L,2,L2) 
/L2(2)=0 



fL2(1)= 



=5L HELP2 



L 



/CALLSEGMENT(L,1,L2) 
/L2(2)=0 



L2(1)=5LHELP1 



/L=3LLG0 



DI MENSION L2(2) 

/PROGRAM START1 (INPUT,OUTPUT) 




/SEGMENT(HELP1,SUB 2,SUB3)" 
/SEGZER0(HELP,START1 ,START2) 



3 /LGa 
/RUN(S) 



Joh Card. 



tSegmentation is available only under SCOPE. 
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COMPILATION DIAGNOSTICS 



During a FORTRAN compilation, 2- or 3 -character error printouts follow statements which are 
incorrect; other printouts may follow the end statement indicating types of errors in the program. 
The short printouts produce a more descriptive full line diagnostic which is printed after the 
subprogram has been compiled. 

The full line diagnostic contains a number to identify the statement in which the error was detected. 
In the short diagnostic an F as the third letter indicates a fatal error. 

Fatal errors force a listing of the subprogram with diagnostics and inhibit the production of a 
relocatable record of the subprogram. 

Non-fatal errors do not force a listing and will only appear if some type of listing has been specified 
or if fatal errors have been detected. 

The two-character error indicators are defined below: 

*****AC** Argument coxmt too high. 

Indicates that the number of arguments in this reference to a subroutine differs 
from the number which occurred in a prior reference. 

*****AE** ARITHMETIC STATEMENT FUNCTION CALLS ITSELF 

The arithm-etlc statement function being compiled references itself. 

*****AF** ARITHMETIC STATEMENT FUNCTION ERROR 

The arithmetic statement function has a statement number or appears after the 
first executable statement. 

*****AL** SYNTAX ERROR IN ARGUMENT LIST 

Indicates a format error in a list of arguments. 
*****AS** SYNTAX ERROR IN ASSIGNMENT STATEMENT 

Indicates a format error in an ASSIGN statement. 
*****BX** SYNTAX ERROR IN BOOLEAN CONSTANT 

Indicates a format error in the designation of a FORTRAN boolean constant in a 
B-type expression. 
****BX** SYNTAX ERROR IN BOOLEAN STATEMENT 
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*****CB** LABELED COMMON BLOCKS EXCEED MAX OF 61 

Attempt made to use more than 61 labeled common blocks. 

*****CD** VARIABLE DUPLICATED IN A COMMON REGION 

Indicates that a variable currently being assigned to the COMMON region has been 
previously assigned to this region. 

*****CE** VARIABLES ASSIGNED TO COMMON ARE IMPROPERLY EQUIVALENCED 

Indicates that two variables assigned to COMMON are improperly equivalenced. 

*****CL** SYNTAX ERROR IN CALL STATEMENT 

Indicates a format error in a call statement. 

*****CM** SYNTAX ERROR IN COMMON STATEMENT 

Indicates a format error on a COMMON statement. 

*****CN** TOO MANY CONTINUATION CARDS 

Indicates that more than 19 continuation cards appear in succession or that one such 
card appears in an illogical sequence. 

*****CO** COMMON STORAGE EXCEEDED 

Indicates that the amount of COMMON storage required by the main program or 
specified to the compiler is less than required by the current program or subroutine. 

*****CT** CONTINUE STATEMENT IS MISSING A STATEMENT NUMBER 

Indicates a CONTINUE statement with no statement number. 

*****DA** DUPLICATE ARGUMENTS IN A FUNCTION DEFINITION STATEMENT 

*****DB** ARRAY SIZE OUT OF RANGE 

Indicates the requested array size exceeds 131K. A constant used as an array 
subscript cannot be contained in 17 bits. 

*****DC** SYNTAX ERROR IN A DECIMAL CONSTANT 

Indicates a format error in the expression of a FORTRAN decimal constant. 
*****DD** VARTABLF BEING DMENSIONED IL\S BEEN PREVIOUSLY DliVlENSIONED 

Indicates a variable has appeared in more than one DIMENSION statement. 



C —2 
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DUPLICATE FUNCTION NAME 






occurred as the name of a previously defined function. 
DO TERMINATOR PREVIOUSLY DEFINED 

The terminator of this DO loop has already been defined. 
INDEX OF OUTER DO REDEFINED BY INNER DO 



DECLARATIVE APPEARS AFTER FIRST EXECUTABLE STATEMENT 
The declarative statement appears after the first executable statement. 
*****DM** SYNTAX ERROR IN DIMENSION STATEMENT 

Indicates an error in the format of a DIMENSION statement. 
ILLEGAL DO TERMINATOR 



***5|<*J)I»J** 



*5|CS1C>|C*J)Q5|<J|« 



5|C****J)P** 



*5|«**5|cJ)J^>|c:(c 



:(; *:(:** J) g** 






This statement cannot be used as a DO terminator. Indicates the attempt to use a 
FORMAT, GO TO, arithmetic IF, or another DO statement as the termination 
statement of a DO. 

SYNTAX ERROR IN A DO STATEMENT 

Indicates an error in the format of a DO statement. 

MULTIPLY DEFINED STATEMENT NUMBER 

Indicates the current statement has previously appeared in the statement number field. 

DATA RANGE ERROR 

Attempt to store data out of range . 

UNDEFINED STATEMENT NUMBER IN A DO LOOP 

Indicates that references have been made in DO statements to statement numbers 
which did not appear anywhere in the statement number field. 

SYNTAX ERROR IN DATA STATEMENT 

Indicates an error in the format of a DATA statement. 

ATTEMPT HAS BEEN MADE TO PRESTORE VALUE INTO BLANK COMMON. 

CONTRADICTION IN EQUIVALENCE STATEMENT 

indicates that a variable currently appearing in an EQUIVALENCE statement cannot be 
equivalenced because of an inherent contradiction in the statement. 
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*****EF** END OF FILE CARD ENCOUNTERED, END CARD ASSUMED 

Indicates that an end of file card is detected before the last END card is encountered. 

*****EM** SYNTAX ERROR IN INDICATED EXPONENTIATION 

Indicates the mode of the base or the exponent of an indicated exponentiation process 
is improper. 

*****EQ** SYNTAX ERROR IN EQUIVALENCE STATEMENT 

Indicates an error in the format of an EQUIVALENCE statement. 
*****EX** SYNTAX ERROR IN EXPONENT 

Indicates an error in the exponent portion of an indicated exponentiation process. 
*****FA** FUNCTION HAS NO ARGUMENT 

The FUNCTION has a void parameter list; at least one argument is required. 
*****FL** SYNTAX ERROR IN EXTERNAL OR F-TYPE STATEMENT 

Indicates an error in an EXTERNAL statement of F-TYPE statement. 
*****FM** UNRECOGNIZABLE STATEMENT 

Indicates a statement whose type cannot be determined. 
*****FN** NO STATEMENT NUMBER ON FORMAT STATEMENT 

Indicates that a FORMAT statement is missing a statement number. 
*****FS** ERROR IN SPECIFICATION PORTION OF FORMAT STATEMENT 

Indicates a format error in the specification portion of a FORMAT statement. 
*****FT** SYNTAX ERROR M FUNCTION TYPE STATEMENT 

Indicates an error in a FUNCTION TYPE statement. 

*****GF** FORMAT NUMBER REFERENCED BY CONTROL STATEMENT 

A statement number attached to a preceding FORMAT statement is being referenced 
by a control statement, e.g. , a GOTO statement. 
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*****GO** SYNTAX ERROR IN A GO TO STATEMENT 

Indicates an error in the format of a GO TO statement. 
*****HC** HOLLERITH CONSTANT TOO LONG 

■LKj ■ \jx±jn.±.\jn.\^ X ±Li±x i.'NV^X ±1-N i" V^iV X Ivrii^ ^^rXflXVnV^X JLXV OXL/ X 

Attempt was made to use a character other than those listed in appendix A. 
*****ID** IMPROPERLY NESTED DO LOOPS 

The sequence of DO loops is improper. 
*****IF** SYNTAX ERROR IN AN IF STATEMENT 

Indicates an error in the format of an IF statement. 
*****IL** SYNTAX ERROR IN AN INDEXED LIST OF I/O STATEMENT 

Indicates a format error in an indexed list of the current input/output statement. 
*****IN** ILLEGAL FUNCTION NAME 

The name of a function reference starts with a number. 
*****IO** ILLEGAL I/O DESIGNATOR 

I/O designator has a variable name of more than six characters or a numeric value of 
more than two digits or is alphanumeric and begins with a number. 

*****IS** ILLEGAL USE OF PROGRAM SUBROUTINE OR FUNCTION NAME 
*****IT** ILLEGAL TRANSFER TO DO TERMINATOR 

A transfer to a DO terminator is not allowed if the terminator has already been 
defined and no transfer to it appeared before it was defined. 

*****LN** NAMELIST ERROR 

*****LP** EXPONENTIATION TO A LOGICAL POWER 

*****LS** SYNTAX ERROR IN INPUT/OUTPUT LIST 

Indicates an error in the form. at of an input/output list. 
*****LU** NON LOGICAL VARIABLE USED IN LOGICAL CONTEXT 
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*****MA** MISUSED SUBROUTINE ARGUMENT IN EQUIVALENCE STATEMENT 

Indicates that an argument of the subroutine or function being compiled has been 
misused in an EQUIVALENCE statement. 

*****MO** MEMORY OVERFLOW, FIELD LENGTH TOO SHORT 

Indicates that the compiler field length, as specified on the JOB card, is too short. 
*****MS* UNDEFINED STATEMENT NUMBER 

Indicates that references have been made to statement labels which did not appear 
somewhere in the statement -label field of a line. 

*****MX** COMPILER CAPACITY EXCEEDED. ROUTINE MUST BE REDUCED IN SIZE 

*****NC** SUBROUTINE OR FUNCTION NAME CONFLICTS WITH A PRIOR USAGE 

*****NL** NAMELIST NAME NOT UNIQUE 

*****NM** IMPROPER HEADER CARD 

Indicates an error in the formatting of the name (header) card. 
*****NO** NO OBJECT CODE GENERATED 

Source program has generated no object code. This error will occur if a void file is 
input to the compiler. 

*****NP** NO PATH TO THIS STATEMENT 

The flagged statement cannot be executed at object time; program continues. 
*****NU** VARIABLY DIMENSIONED ARRAY IN NAMELIST 
*****pM** FUNCTION PARAMETER MODE INCONSISTENCY 

Indicates the parameters in a function reference do not agree in mode with the formal 
parameters of the statement function . ^^ 
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*****PN** UNBALANCED PARENTHESIS 

Indicates an unequal number of open and closed parentheses in a statement. 

*****pT** SYNTAX ERROR IN AN ENTRY STA.TEMENT 

The entry statement being processed is labeled or has more than one name or is in 
a DO loop or name started with a number. 

*****RN** SYNTAX ERROR IN A RETURN STATEMENT 

Indicates aa error in the format of a RETURN statement. 
****RW** ILLEGAL USE OF RESERVED NAME 
*****SB** ERROR IN AN ARRAY SUBSCRIPT 

Indicates a format error in a subscript of an array reference currently being processed. 
*****SE** SYNTAX ERROR IN SENSE STATEMENT 

Indicates an error in the format of a sense statement. 

*****SF** FIELD LENGTH OF ROUTINE BEING COMPILED EXCEEDS THE SPECIFIED FIELD 
LENGTH 

*****SM** SYNTAX ERROR IN STATEMENT NUMBER 

Indicates an error in the format of the statement label field. 
*****SN** ILLEGAL CHARACTER IN STATEMENT NUMBER USAGE 

Indicates an error in the format of the position where the statement label should appear. 

*****SY** SYSTEM ERROR IN FORTRAN COMPILER 

*****TM** SUBROUTINE HAS MORE THAN 60 ARGUMENTS 

Indicates that a subroutine reference has more than 60 arguments or that the routine 
being compiled has more than 60 parameters. 

*****TT** VARIABLE GIVEN CONFLICTING TYPES 



J|c5|e*j|e+'J'J^*:)e 



A variable has appeared in more than one type statement. 
PROGRAM HAS MORE THAN 50 ARGUMENTS 
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*****TY** SYNTAX ERROR IN A TYPE STATEMENT 

Indicates an error in the format of a TYPE statement. 

*****UA** REFERENCE MADE TO AN AS YET UNDIMENSIONED ARRAY 

Indicates reference was made to an array which has not previously appeared in a 
DIMENSION statement. 

*****UE** LOGICAL UNIT NUMBER IS NOT AN INTEGER 

*****VC** VARIABLE NAME CONFLICTS WITH A PRIOR USAGE 

Indicates that a variable name appears which conflicts with some prior use. 

*****VD** ARRAY WHOSE DIMENSIONS ARE ARGUMENTS TO THE SUBROUTINE OR FUNCTION 
HAS BEEN MISUSED 

Indicates improper use of an array with variable dimensions. 
*****XF** SYNTAX ERROR IN THE EXPRESSIONS BEING PROCESSED 

Indicates an error in the format of the expression currently being processed. 
*****ZY** SYSTEM ERROR-UNKNOWN TWO LETTER CODE 



G-8 
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PROGRAM - SUBPROGRAM FORMAT H 



The starting address of all programs is RA+lOOg with the first 77 g locations containing file and 
loader information. Only 50 files may be declared for any one program and the file names along 
with their associated buffer addresses begin at RA+2. An object time routine, Q8NTRY, transfers 
the file information to RA+2+n, where n is the number of declared files, at execution time. The 
I/O buffers are reserved as a portion of the main program and Q8NTRY also initializes the buffer 
parameters during execution. 

The first word of a main program contains the name of the program in left justified display code 
and a parameter count greater than 77 g in the right most position. Since no more than 74g 
parameters may be passed to a subprogram, a count of greater than 77g terminates trace back 
information. The second word of a main program is the entry point. It contains instructions to 
preset the parameters for Q8NTRY which performs initiation only once per execution. Therefore, 
entry into an overlay is through this word destroying its contents. Since Q8NTRY does not perform 
any function after the first entry, the destruction of the preset parameters for an overlay entry 
does not matter. 

The addresses of the first six parameters to a subprogram are passed by B registers 1-6. One 
word is reserved for each parameter greater than six so that the address of the parameter is 
actually passed through this reserved word. Immediately following these reserved words is a 
location containing the name of the subprogram in left justified display code and a parameter count 
in the lower six bits. Next is the entry/exit line for the subprogram. Therefore, a subprogram 
will have as few as two reserved words if the parameter count is six or less. Otherwise, there 
will be a reserved word for each parameter over six plus the name and entry words. 

Subroutines written in the COMPASS assembly language that will operate in conjunction with FOR- 
TRAN coded routines should be formatted as in the following examples to take full advantage of 
the error tracing facility of FORTRAN Version 2. 3. 

Examples: 

PROGRAM PETE (INPUT, OUTPUT, TAPE 1) 

DATA L00002 Name & argument count plus 100 

o 

SBl L00002 LOOOOl Entry/Exit line 

SB2 C 00001 

RJ Q8NTRY L00003 
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SUBROUTINE PHD (A, B, C) 



DATA 
DATA 



L00002 
LOOOOl 



Name & argument count 
Entry/Exit line 



SUBROUTINE PEN (A, B, C, D, E, F, G, H, I, J) 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



LOOOll 
L00012 
L00013 
L00014 
L00002 
LOOOOl 



Reserved word for G 
H 
I 
J 

Name & argument count 

Entry/Exit line 



Calling Sequence to PEN 

CALL PEN (M, N, O, P, Q, R, S, T, U, V) 



SBl 

SB2 

SB3 

SB4 

SB5 

SB6 

SX6 

SAl 

SB7 

SX6 

SA6 

SX7 

SA7 

SX6 

SA6 

SX7 

SA7 

RJ 



M 
N 
O 
P 

Q 

R 

Entry line of PEN 

X6-1 Name & argument count 

XI -6 Number of arguments less 6 

S 

A1-B7 Reserved word for S 
T 

Reserved word for T 



A6+1 

U 

A7+1 

V 

A6+1 

PEN 



0712L00002 



Reserved word for U 
Reserved word for V 



Where 12g is argument count and L00002 is word containing the name 
of callmg routine. 
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FORTRAN I/O ROUTINES 



SIO$ is the name of the routine used for all communication between the FORTRAN I/O routines 
and the PP routine CIO. SIO$ includes a facility to backspace physical records and read physical 
records. 



Structure of l/O Files 

Logical record is composed of physical records which terminate in a short or zero length 
physical record. 

Physical record is composed of a pre-determined maximum number of characters. On 
magnetic tape the physical record separator is the record mark, and on 
disk a physical record is defined to be one sector. 

Unit record is analogous to a card image or print line . 

Coded physical records on disk are composed of 640 j^q characters (maximum) ; on magnetic 
tape, 1280 j^Q characters (maximum) . Binary physical records are composed of 5120]^q 
characters (maximum) on tape, 640 -,f^ characters (maximum) on disk. 

Records created by FORTRAN coded writes are unit records. Unit records are packed into 
physical records. 

T-> ,J„ „ ^«+«^ U,r -U>r\T>rrT> \T\J Ui-nn-rttT itTr-Ti-aa finr>^^^r^^■na^ "RTT"l?T?Tr''R OTT'PN Q T»(^ loCPIOSlI T»(=>r«n"rfl R 

r\cuuru.o \ji±aa.i,cJL uy x- \j±\ x j.\jn.±\ Kn.i.xa.^. y w x i«-<^>j ^a.iJ.v/J.t^.^^iiig ,-,^ j. j. j_.j.v ^^^^/ „^ ^ ^jj,»^„- ^ . 

Records read using FORTRAN coded reads are unit records. 

Records read using FORTRAN binary reads (including BUFFER IN) are logical records. 

BUFFER IN coded and BUFFER OUT coded read and create a logical record. 

Multi-file files are permitted on all files except INPUT and OUTPUT. 

BUFFER I/O 

BUFFEI 

Oni.y one iogicai x^euuru. is rt;a.u. eauu unit; iDurrrji lo uaneci. jj. tiic uL<ji^i\. Lbii^LU b^jb*^ ij.j.L.u. »jj 

the call is loiter than the logical record, the excess block locations are not changed by the 
read. If the logical record is longer than the block, the excess words in the logical record are 
passed over. The number of CM words transmitted to the program block may be obtained by 
referencing LENGTH. 
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After using a BUFFER IN statement on unit i, and prior to a subsequent reference to unit i or 
to the information being read in, thB status of the BUFFER operation must be checked by an IF 
UNIT statement. This insures that the data has actually been transferred, and the buffer param- 
eters have been properly restored. 



BUFFEO 

One logical record is written each time the routine is called. The length of the record is 
LWA-FWA+1. 

The IF UNIT statement must be used similarly with BUFFEO as with BUFFEI. Since BUFFEO 
changes the buffer arguments for the file to point to the CM block specified in the call, calls to 
other routines involving the same file may not follow any buffer operation until the pointers 
have been restored by the IF UNIT statement. 



Random Access Files (Mass Storage) 

Two degrees of sophistication are available using the mass storage subroutines. It is possible 
to utilize the routines in a normal fashion having just one master index, or it is possible to 
have a master index and many sub-indexes. A file may have a name or a number index. 

In all cases, it is necessary to open (CALL OPENMS) the mass storage file before calling 
READMS, WRITMS, or STINDX. If the file exists, OPENMS reads the master index into the 
CM area specified in the call (the ix parameter) . 

The STINDX subroutine causes no transfer of data; it merely changes the file index in the FET 
to the base specified in the call. Only the master indexes are managed by the system. The 
user must keep track of all sub-indexes. A user may open a master index, for example, I, do 
a call READMS onto B, assuming B to be a sub-index, then call STDSTDX to assure that subse- 
quent operations on the logical unit will use B as the index. If the master index is to be changed 
to some sub-index, a call to STINDX should be made prior to CALL WRITMS. Master indexes 
should be restored prior to job conclusion. After making a call to STINDX, if the next operation 
on that file is to be a random access write (WRITMS) and if the file is being referenced through 
a name index, the programmer must zero out the area reserved for the new index buffer (whose 
first word address is specified by the ix parameter in the call to STINDX) prior to calling 
WRITMS. The master index must be reset before termination of the job so that the correct 
index will be written on the file. 

Upon termination of the job, the mass storage file is closed automatically by FORTRAN. At 
this time the index as specified in the FET is dumped to the file. 
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Examples: 

1- PEOGEAM MS (TAPES) 

DIMENSION 1(10), B(20), C(30) 
C EEAD MASTEE INDEX INTO I 
CALL OPENMS(5, 1, 10, 0) 

C EEAD EECOED 4 INTO B (ASSUME TfflS EECOED IS A SUB-INDEX) 

CALL EEADMS(5,B,20,4) 

CALL STINDX(5 , B , 20) 
C ALL SUBSEQUENT OPEEATIONS ON UNIT 5 WILL USE 
C B AS THE INDEX FOE THE FILE 

C EESTOEE MASTEE INDEX 
CALL STINDX(5,I,10) 
END 

2. PEOGEAM MS (TAPES) 

C PEOGEAM FOE CEEATING EANDOM FILE 

DIMENSION J(10) , B(7) , XYZ(20) , ZXY(IO) , YXZ(SO) 

DATA SUB1/4HSUB1/ 

DATA JOE,SAM,PETE/3HJOE,3H SAM,4HPETE/ 

CALL OPENMS(S,J,10,1) 
C USE INDEX B 

CALL STINDX(5,B,7) 

CALL WEITMS(5 , XYZ , 20 , JOE) 

CALL WEITMS(S, ZXY, 10, SAM) 

CALL WEITMS(S , YXZ , SO , PETE) 

CALL STINDX(5,J,10) 
C WEITE OUT THE SUB-INDEX 

CALL WEITMS(S,B,7,SUB1) 

END 

3- PEOGEAM MS (TAPES) 

C THIS MS FILE HAS NO SUB-INDEXES 

DIMENSION 1(10) 
C EEAD MASTEE INDEX INTO I 

CALL OPENMS(S,I,10,0) 

C ANY EEAD OE WEITE ON THIS FILE WILL USE THE INDEX IN 
C AEEAY I 

END 

Execution of the END statement will close the file, causing the index at I to be rewritten on 
the file. 
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status Checking 

The IF UNIT statement checks the status of a buffered operation on logical unit i. The 
status returned is unit not ready, unit ready, no previous error, previous read encountered 
an end of file, or parity error on the previous read. 

Example: 

IF (UNIT, 5) 10, 20, 30 

Control would transfer to statement 10, 20, or 30 if the unit was still busy, if the 
xmit was not busy and there were no previous errors, or if an end of file was read 
on the previous read, respectively. Since the optional fourth branch is ineffective, it 
is omitted. 

When the IF UNIT statement references a non-buffered unit, the second branch is always taken. 

The IF EOF statement tests for an end of file read (non-buffered) on unit i. 

Example: 

IF (EOF,i) 10, 20 

Control would transfer to statement 10 if the preceding READ statement had encountered 
an EOF, or to 20 otherwise. If an EOF had been read, the indicator would be cleared 
before proceeding. 

The IF lOCHECK statement tests for a parity error on the previous non-buffered read 
operation. 

Example: 

IF (IOCHECK,i) 10, 20 

Control would transfer to statement 10 if the previous read had a parity error, or to 
20 otherwise. The parity indicator is cleared by the IF lOCHECK. 

Backsx)ace 

When a BACKSPACE is requested on a coded file (except file created by the BUFFER OUT 
statement) the file is logically moved back one unit record. The backspace will be attempted 
within the l/O buffer; if not possible the external l/O device will be repositioned. 

Backspace on binary files and files created by the use of the buffer l/O statements reposition 
the external device so that the last logical record becomes the next logical record. 

When a BACKSPACE (or REWIND) request follows a write operation on a file, an end-of-file is 
written and backspaced over; and then the requested backspace is processed. 
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Labeled files (tapes) 

Only files recorded on 1/2" magnetic tape may be labeled, FORTRAN will accept labeled tapes, 
but the FORTRAN program cannot access the label. 

A labeled tape written by a FORTRAN program will be given a default label by the system . 
A standard label cannot be written on a labeled tape from a FORTRAN program. 

A labeled tape prepared elsewhere with a standard label can be read by a FORTRAN program 
only if special instructions are given to the operator. The information in the label will not 
compare with the information in the FORTRAN prepared FET and SCOPE will not allow the 
job to proceed unless overridden from the console. 



Undefined Operation 

Meaningful results are not guaranteed in the following circumstances: 

• Mixed mode files 

• Mixing buffer l/O statements and standard READ/WRITE statements referencing 
the same logical file. 

• Two consecutive buffer l/O statements referencing the same logical file without an 
intervening IF UNIT statement. 

• Requesting a LENGTH function on a buffered unit before checking status on the unit 
with an IF UNIT statement. 
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SYSTEM ROUTINE 



The SYSTEM routine handles the following extensions for the mathematical routines of FORTRAN 
Version 2.3: error tracing, diagnostic printing, termination of output buffers and transfer to | 

specified non-standard error procedures. The END processor also uses SYSTEM to dump the 
output buffers and print an error summary. Since SYSTEM, along with the initialization routine, 
Q8NTRY, and the end processors, END, STOP, EXIT, must always be available, these routines 
are combined into one with multiple entry points. Any of the parameters used by SYSTEM relating 
to a specific error may be changed by a user routine during execution by calling SYSTEMC. 

CALLING SYSTEM 

The calling sequence to SYSTEM from an assembly language routine passes error number in XI and | 
an error message address in X2. Therefore, one error number may have several different messages 
associated with it. The error summary at the end of the program lists the total number of times 
each error number was encountered. 

FORTRAN routines call SYSTEM via a RJ to SYSTEMP, a special entry point. Because the 
addresses of the subprogram arguments must be passed to a non-standard recovery routine if one 
is specified, SYSTEMP must be called with eight parameters. The first six parameters are the 
first six formal parameters of the subprogram. If the subprogram does not have six parameters, 
dummy parameters must be supplied. The seventh parameter to SYSTEMP is the error number 
specified as an integer constant or integer variable. The array or simple variable containing the 
diagnostic message is the eighth parameter. After adjusting the parameters, SYSTEMP transfers 
to SYSTEM for error processing. 

ERROR PROCESSING 

If an error number of zero is accepted, this is a special call to end the output buffers and return. 
If no OUTPUT file is defined before SYSTEM is called, there is no error printing and an appropriate 
message appears in the Dayf ile . Each line printed is subjected to the line limit of the OUTPUT 
buffer. When limit is exceeded, the job is terminated. The error table is ordered serially; the 
first error corresponds to the error number 1, and is expandable at assembly time. The last 
entry in the table is a catch-all for any error number that exceeds the table length. Following 
is an entry in the error table. 
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Error Table 



PRINT 
FREQUENCY 



PRINT 

FREQUENCY 

INCREMENT 



PRINT 
LIMIT 



12 



ERROR 
DETECTION 
TOTAL 



F/ 
NF 



A/ 
NA 



NON-STANDARD 
RECOVERY ADDRESS 



12 



Use of PRINT FREQUENCY 

PRINT FREQUENCY = PF 

PRINT FREQUENCY INCREMENT = PFI 



1. 
2. 



If PF - and PFI = 0, diagnostic and trace back information are never listed. 

If PF = and PFI = 1, diagnostic and trace back information are always listed until the 
print limit is reached. 

If PF = and PFI = n, diagnostic and trace back information are listed only the first n 
times unless the print limit is reached first. 

If PF = n, diagnostic and trace back information are listed every n— time until the 
print limit is reached. 



Use of FATAL (F)/ non-FATAL (NF) 

1. If the error is non-fatal and no non-standard recovery address is specified, the error 
messages are printed according to PRINT FREQUENCY and control is returned to the 
calling routine. 

2. If the error is fatal and no non-standard recovery address is specified, the error messages 
are printed according to PRINT FREQUENCY, an error summary is listed, all the output 
buffers are terminated, and the job is terminated. 



Name and number of parameters 
Entry/exit line 



TRACEBACK EXAMPLE 


DATA 





L00002 


DATA 





LOOOOl 


+ RJ 




SYSTEM 


- 07 




L00002 



07 is number of parameters passed to SYSTEM and L00002 is 
address of word containing name of calling routine 



The name of the routine always precedes the entry/exit line. 
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SPECIAL ERROR MESSAGES : 

INVALID STATUS xx ON FILE yyyyyy 

Issued from within the FORTRAN I/O library when an FET status field denoted an error other 
than parity error is returned on a system I/O request. Consult section 3 of the SCOPE Refer- 
ence Manual for the meaning of the status xx. 

TTe^^ /-v+ XTf~iXT_ST'' 4 ^ ■ ! A ^M TJWi^:Pi\/ h!T?" 

SYSTEM will supply the non-standard recovery routine with the following information: 

B1-B6 address of the first six parameters passed to the routine that detected 
the error 

XI error number passed to SYSTEM 

X2 address of the diagnostic message available to SYSTEM 

X3 address within an auxiliary table if A/NA bit is set 

X4 instruction word consisting of the return jump to SYSTEM in the upper 

30 bits and trace back information in the lower 30 bits for the routine 
which detected the error 

AO address of error number entry within SYSTEM'S error table. 

1. Non-fatal error 

The entry/exit line of the routine which called SYSTEM is set into the entry/exit line of the 
recovery routine. Control is then passed to the word immediately following the entry/exit 
line of the recovery routine. The traceback information available to SYSTEM from the 
routine which detected the error is passed to the recovery routine in X4. 

Any faulty parameters may be corrected, and the recovery routine is allowed to call the 
routine which detected the error with corrected parameters. Upon exit from the recovery 
routine, control is turned not to SYSTEM nor to the routine which detected the error, but 
rather back another level (see example) . By not correcting the faulty parameters in the 
recovery routine, a three routine loop could develop between the routine which detects the 
error, SYSTEM, and the recovery routine. No checking is done for this case. 

Example : 

MAIN 
E/E I I 



CALL MATH (A,B,C) 
RTNl . " Point of return from MATH, if no errors detected, 

: or from RECOVERY. 

END 
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E/E 



MATH 

pump to RTNl 



May be reentered from RECOVERY with corrected 
parameters 



RTN2 



RJ SYSTEM 
07XXAAAAAA. 



.trace-back information 



END 

SYSTEM 
[jump to RTN2 



JUMP TO RECOVERY 



transfers E/E line of MATH to E/E 
line of RECOVERY and gives control 
to RECOVERY 



E/E 



END 
RECOVERY 



jump to RTNl 



corrects faulty parameters and may 
recall MATH 



Fatal error: 



RJMATH 

jump to E/E 

END 



returns to MAIN following reference 
to MATH 



Into the entry/exit line of the recovery routine is set a return address back to SYSTEM. Control 
is then passed to the word immediately following the entry/exit line of the recovery routine. 
The traceback information available to SYSTEM from the routine which detects the error is set 
in X4. If control is returned to SYSTEM from the recovery routine, then an error summary is 
listed, all output buffers are terminated and the job is aborted. 



SYSTEM 



E/E 



TAG jump to RECOVERY 

07XXAAAAAA trace back information 



IITN3 



END 
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RECOVERY 
E/E Ijump to RTN3 



END 



Use of the A/NA Bit 

The A/NA bit is for use only when a non-standard recovery address is specified. If this bit is set, 
the address within an auxiliary table is passed in X3 to the recovery routine. This bit allows more 
information than is normally supplied by SYSTEM to be passed to the recovery routine. Only during 
assembly of SYSTEM may this bit be set, because an entry must also be made into the auxiliary 
table. Each word in the auxiliary table must have the error number in its upper 10 bits so that 
the address of the first error number match is passed to the recovery routine. An entry in the 
auxiliary table for an error is not limited to any specific number of words. 

The traceback information is terminated as soon as one of the following variables is detected: 

Calling routine is a program (the number of arguments > 77B). 

Maximum trace back limit is reached. 

No trace back information is supplied; a 07 instruction does not follow the 
return jump as is the case with I/O operations. 

To change an error table during execution, a FORTRAN type call is made to SYSTEMC with the 
addresses of the following parameters in Bl and B2: 

Bl error number 

B2 parameter list in consecutive locations containing: 

word 1 fatal/non -fatal (fatal = 1, non-fatal = 0) 

word 2 print frequency 

word 3 print frequency increment (only significant if word 2=0) 

special values: 

word 2 = 0, word 3 = never list error 

word 2 = 0, word 3 = 1 always list error 

word 2 = 0, word 3 = X list error only the first X times encountered 

word 4 print limit 

word 5 non-standard recovery address 

word 6 maximum trace back limit 
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If any word within the parameter list is negative, the value already in table entry will not be 
altered. 

(Since the auxiliary table bit may be set only during assembly of SYSTEM, only then can an 
auxiliary table entry be made. ) 



ERROR LISTING 

< message supplied by calling routine> 

ERROR NUMBER xxxx DETECTED BY zzzzzzz at yyyyyy 
CALLED FROM cccccc at wwwwww 



zzzzzzz and ccccccc are routine 
names, yyyyyy and wwwwww are 
absolute addresses and error 
number is decimal 

ERROR SUMMARY 

ERROR TIMES 

xxxx yyyy 
xxxx yyyy 
; xxxx yyyy 
all numbers are decimal 

NO OUTPUT FILE FOUND 

OUTPUT FILE LINE LIMIT EXCEEDED 

Functions of entry points : 

Q8NTRY initialize I/O buffer parameters 

STOP enter STOP in the Dayfile and begin END processing 

EXIT enter EXIT in the Dayfile and begin END processing 

END terminate all output buffers, print an error summary; 

transfer control to main overlay if within an overlay or in 
any other case exit to monitor 

SYSTEM handles error tracing, diagnostic printing, termination of output 

buffers, and either transfers to specified non-standard error recovery 
address, aborts the job, or returns to calling routine depending on 
type of error 
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SYSTEMP adjusts arguments for use by SYSTEM and transfers control to SYSTEM 

SYSTEMC changes entry in SYSTEM'S error table according to arguments passed. 

ABNOEML gains control from an execution routine when an error had been assembled 

as fatal and during the processing of the job was changed to non-fatal with 
no non-standard error recovery. An abnormal termination is given. 



FILE NAME HANDLING BY SYSTEM 

SYSTEM(Q8NTEY) places in RA+2 and the locations immediately following, the file names from the 
FORTRAN PROGRAM card. The file name is left justified and the file's FET address is right 
justified in the word. (Thus the declared file names replace any actual file names at execution 
time in the RA area.) 

The logical file name (LFN) which appears in the first word of the FET is determined in one of the 
three following ways: 

CASE 1: If no actual parameters are specified, the LFN will be the file name from the 

PROGRAM card. 



Example: 



RUN(S) 
LGO. 



PROGRAM TEST1(INPUT, OUTPUT, TAPEl, TAPE2) 



Betore 
RA+2 



SYSTEMCySNTRY) 



000- 
000- 



■000 
•000 



After 
RA+2 



INPUT — 
OUT PUT- 
TAPE 1— 
TAPE 2— 



• FET address 
•FET address 
-FET address 
■FET address 



LFN in FET 
INPUT 
OUTPUT 
TAPEl 
TAPE 2 



CASE 2: If actual parameters are specified, the LFN will be that specified by the 

corresponding actual parameter, or the file name from the PROGRAM card 
if no actual parameter was specified. A one-to-one correspondence exists 
between the actual parameters and the file names found on the PROGRAM 
card. 
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Example: 



EUN(S) 
LGO(,,DATA,ANSW) 



PROG EAM TEST2(INPUT, OUTPUT, TAPEl, TAPE2, TAPE3=TAPE1) 



Before 
EA+2 



000 — 

000 

DATA- 
ANSW- 



000 
000 
000 
000 



After 
EA+2 



INPUT — 
OUTPUT- 
TAPE 1 — 
TAPE2— 
TAPE3 — 



■ FET address 
■FET address 
■FET address 
-FET address 
•FET address of TAPEl 



LFN in FET 

INPUT 

OUTPUT 

DATA 

ANSW 

Uses TAPE! FET 



CASE 3: An equivalenced file name from the PEOGEAM card will ignore an actual 

parameter. The LFN will be that of the file to the right of the equivalence 
and no new FET will be created. 



Example: 



EUN(S) 

LGO(,, DATA, ANSW) 



PEOGEAM TEST3(INPUT, OUTPUT, TAPE l=OUTPUT, TAPE2, TAPE3) 



Before 
EA+2 



000 

000 

DATA- 

ANSW- 



■000 
-000 
000 
•000 



After 
EA+2 



INPUT — 
OUTPUT- 
TAPEl— 
TAPE 2 — 
TAPES — 



■FET address 

•FET address 

-FET address of OUTPUT 

-FET address 

■FET address 



LFN in FET 

INPUT 

OUTPUT 

uses OUTPUT FET 

ANSW 

TAPES 
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EXECUTION DIAGNOSTICS 



K 



The format of these error listings is shown on page J-6. 

The S3rmbol INF denotes infinite and IND denotes indefinite internal words. 

Some error conditions are preceded by "also". The routine in question calls on a subordinate library 
routine, giving it the arguments indicated; therefore the subordinate routine may detect some errors 
of its own and report them under its own error number. 



Standard 



Routine 


Condition 


Recovery 


ACGOER 


Called only upon detection of a computed 
or assigned GO TO error 


Fatal 




ACQS (R) 


R = INF or R = IND or 


+IND 






abs (R) .GT. 1.0 


+IND 




ALOG (R) 


R = INF or R = IND or R , LT. 


+IND 






R =0 


-INF 




ALOGIO (R) 


R = INF or R = IND or R . LT. 


+IND 






R =0 


-INF 




Asm (R) 


R = INF or R = IND or abs (R) , GT. 1. 


+IND 




ATAN (R) 


R = INF or R = IND 


+IND 




ATAN2 (Rl, 


(Rl or R2) = (INF or IND) 


+IND 




R2) 


Rl =R2 =0 


+IND 




CABS (Z) 


(real (Z) or imag (Z) = (INF or IND) 


+IND 




CBAIEX:Z**I 


(real (Z) or imag (Z)) = (INF or IND) 


(+IND, 


+IND) 




Z = (0,0) and I .LE. 


(+IND, 


+IND) 


CCOS (Z) 


(real (Z) or imag (Z)) = (INF or IND) 
also: COS (real (Z)) and EXP (imag (Z)) 
and imag (Z) . LT. -675. 82 


(+IND, 


+IND) 


CEXP (Z) 


(real (Z) or imag (Z)) = (INF or IND) 
also: SIN(inag (Z)) and EXP (real (Z)) 


(+IND, 


+IND) 


CLOG (Z) 


(real (Z) or imag (Z)) = (INF or IND) 


(+IND, 


+IND) 



Error 
Number 



COS (R) 



also: ALOG (CABS(Z)) and 

ATAN2 (imag (Z), real (Z)) 

R = INF or R = IND or abs (R) .GT. 2, 2E14 +IND 



10 



11 



12 



13 
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Boutine 
CSIN (Z) 

CSQRT (Z) 
DABS (D) 

DATAN (D) 

DATAN2 (Dl, 
D2) 

DBADEX: 
D1**D2 



DBAIEX: 
D1**I2 

INPUT B 

DBAREX: 
D1**R2 



DCOS (D) 
DEXP (D) 

DLOG (D) 

DLOGIO (D) 

DMOD (D1,D2) 

DSIGN(D1,D2) 

DSm (D) 
DSQRT (D) 
EXP (R) 

IBAIEX: 
11**12 

IDINT (D) 



Condition 

(real (Z) or imag (Z)) = (INF or IND) 
also: SIN(real(Z)) and EXP (imag (Z)) 
andimag(Z) .LT. -675.82 

(real (Z) or imag(Z)) = (INF or IND) 

D =INF 
D =IND 

D = INF or D = IND 

(Dl or D2) = (INF or IND) 
D1=D2 = 

(Dl or D2) = (INF or IND) 
Dl = and D2 . LE . 
Dl .LT. 

Dl = INF or Dl = IND 
Dl =0 and 12 .LE. 

lUegal file input 

(Dl or R2) = (INF or IND) 
Dl =0 and R2 .LE. 
Dl .LT. 



Standard 
Recovery 

(+IND,+IND) 



(+IND, +IND) 

+INF 
+IND 

+IND 

+IND 
+IND 

+IND 
+IND 
+IND 

+IND 
+IND 

Proceed 

+IND 
+IND 
+IND 



D = INF or D = IND or abs (D) . GT, 2. 2E14 +IND 



D = INF or D = IND 
D .GT. 741.67 

D = INF or D = IND or D . LT. 
D = 

D = INF or D = IND or D . LT. 
D =0 

(Dl or D2) = (INF or IND) 

D2 =0 

Dl /D2 .GE. 2** 96 

Dl = IND or D2 = (0 or INF or IND) 
Dl = INF 

D = INF or D = IND or abs (D) .GT.2.2E14 

D = INF or D = IND or D . LT. 

R = INF or R = IND 
R .GT. 741.67 

U = and 12 .LE. 
IT ** 12 .GE. 2** 48 

D = +INF or D = IND or D . GE. 2**59 
D = -INF or D . LE. -2**59 



+IND 
+INF 

+IND 

-INF 

+IND 
-INF 

+IND 

+IND 
+IND 

+IND 

INF with sign of D2 

+IND 

+IND 

+IND 

+INF 





2**59-1 
1-2**59 



Error 
Number 

14 



15 
16 

17 
18 

19 

20 

20 

21 

22 
23 

24 

25 

26 

27 

28 
29 
30 

31 

32 
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Routine 

EBADEX: 
R1**D2 

RBAIEX: 
R1**I2 

RBAREX: 
R1**R2 

SIN (R) 

SLITE (I) 

SLITET 
(11,12) 

SQRT (R) 

SSWTCH (11,12) 

TAN (R) 

TANK (R) 

INPUTN 



OVERLAY 

SEGMENT 
(SCOPE 3.3 only) 

BACKSP 

BUFFEI 



BUFFEO 

ENDFIL 
IFENDF 



I Standard 

Condition Recovery 

(Rl or D2) = (INF or IND) +IND 

Rl = and D2 . LE. +IND 

Rl .LT. +IND 

Rl = INF or Rl = IND +IND 

Rl = and 12 . LE. +IND 

Rl**i2 = INF ^INF 

(Rl or R2) = (INF or IND) +IND 

Rl = and R2 .LE. +IND 

Rl .LT. +IND 

R = INF or R = IND or abs (R) .GT.2.2E14 +IND 

I .GT. 6 or I .LT. Proceed 

II .GT. 6 or II .LE. 12 = 2 

R = INF or R = IND or R . LT. +IND 

II .GT. 6 or II .LE. 12 = 2 

R = INF or R = IND or abs (R) .GT.8.4E14 +IND 

R = INF or R = IND +IND 

Precision lost in floating integer constant Proceed 

Namelist data terminated by EOF not $ Proceed 
Too few constants for unsub scripted array Proceed 

Fatal error reported by LOADER Fatal 

Fatal error reported by LOADER Fatal 

Non-fatal error reported by LOADER Proceed 

Unassigned mediumt Fatal 

Unassigned mediumt Fatal 

Attempt to read past EOF on Buffer In. Fatal 

Last operation was a write , no data Fatal 

available to read. 

Starting address greater than terminal Fatal 

address. 

Unassigned mediumt Fatal 

Starting address greater than terminal Fatal 
address. 

Unassigned mediumt Fatal 

Unassigned medium t Fatal 



Error 
Number 

33 



34 
35 

36 

37 
38 

39 

40 
41 
42 
49 

50 

51 
52 

53 

54 
55 
56 



58 
59 

60 
61 



tExecution time diagnostic occurs when a variable file name is undefined. It is printed as 
Unassigned medium , file xxxxxxx (where xxxxxxx is tiie name of the undefined file) . 
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Routjjie 

FTNBIN 
INPUTB 

OUTPTN 

INPUTC 

INPUTN 



INPUTS 



lOCHEK 

KODER 
(Coded output) 



Condition 

Unassigned medium t 

Unassigned mediumt 

Attempt to read past EOF - binary input. 

Unassigned medium variable file name is 
undefined. 

Unassigned medium, t variable file name 

is undefined. 

Attempt to read past EOF - coded input 

Namelist name not found. 
No I/O medium assigned. 
Wrong type constant. 
Incorrect subscript. 
Too many constants. 
(,$,OR = expected, missing. 
Variable name not found. 



Missing constant after * . 
Uncleared EOF on read. 
Attempted read after write. 

Attempt to transfer more than 150 char- 
acters/record on DECODE processing. 
DECODE * character per record count 
less than or equal to zero. 

Unassigned mediumt for IF UNIT 
statement. 

Illegal letter as format specification 
Format specification has more than 2 
levels of parentheses (3 levels under ASA) 
Exceeded record size (format specified 
more than 136 characters per line) . 
Field width specified as zero. 
Field width specified is less than or 
equal to the specified decimal width. 
Attempt to output data under Hollerith 
format. 



Standard 
Recovery 

Fatal 

Fatal 
Fatal 

Fatal 

Fatal 

Fatal 

Fatal 
Fatal 
Fatal 
Fatal 
Fatal 
Fatal 
Fatal 
Fatal 
Fatal 
Fatal 
Fatal 

Fatal 
Fatal 



Fatal 

Fatal 
Fatal 



Fatal 
Fatal 
Fatal 

Fatal 



Error 
Number 

62 

62 
63 

64 

64 

65 
66 



66 



67 

68 
69 



70 
71 

72 

73 



t Execution time diagnostic occurs when a variable file name is undefined. It is printed as 
Unassigned medium, file xxxxxxx (where xxxxxxx is the name of the undefined file). 
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Routine 

KRAKER 
(Coded input) 



LENGTH 
OUTPTB 
OUTPTC 

OUTPTS 

REWINM 

KODER 
(Coded output) 

INPUTC 

INPUTS 

INPUTS 

OUTPTB 
lOCHEC 



Conditiont t 

Illegal letter used as format specification. 

Format specification with more than 2 

levels of parentheses . 

Field width specified as zero. 

Coded read past end of record. 

Illegal data in the external field.ttt 

Data converted is out of range. •*' 

Attempt to input data under Hollerith 

format. 

Unas signed medium t 

Unas signed medium t 

Unassigned mediumt 

Line limit as specified on RUN card 

exceeded. 



Standard 
Recovery 

Fatal 
Fatal 

Fatal 
Fatal 
Fatal 
Fatal 
Fatal 

Fatal 

Fatal 

Fatal 
Fatal 



Attempt to transfer more than 150 charac- Fatal 
ters/record on ENCODE processing. 

Unassigned mediumt Fatal 

Attempt to output a single array under Fatal 

"D" format specification. 

Last operation was a write , no data Fatal 

available to read. 

List exceeds data on file , attempt to read Fatal 
more data than exists in ttie logical record. 

T X -LS - „H.^ ~^ ^^-l-^ ■p.-.+r.l 

available to read. 

Mixed mode operation Proceed 

Unassigned medium variable file name Fatal 

file is undefined. 

Status of buffer I/O must be checked by Fatal 

the unit function. 



Error 
Number 

74 

75 

76 
77 
78 
79 
80 

81 

82 

83 
84 



85 

86 

87 



89 



91 
95 

96 



tExecution time diagnostic occurs when a variable file name is undefined. It is printed as 
Unassigned medium, file xxxxxxx (where xxxxxxx is the name of the undefined file), 

ttAU input/output errors at execution time are fatal. Standard error recovery for all the above 
cases is to terminate the job after standard error tracing. 

tttcard im^e will be printed. 
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Routines 



Condition 



Standard 
Recovery 



Error 
Number 



INITMS, 

READMS, 

WRITMS 

INITMS 



READMS, 
WRITMS 

READMS 



INITMS, 
WRITMS 

READMS 

READMS 

WRITE C 

READEC 
BUFFEO 



Unassigned medium ;t variable file name Fatal 
is undefined. 

File does not reside on a random access Fatal 
device . 

File not opened by a call to subroutine Fatal 

OPENMS 

Record name referred to in call is not Fatal 

in file index. 

Index buffer is too small. Fatal 

Read parity error Fatal 

Index specified in this mass storage call Fatal 
is greater than master index or is zero. 

ECS unit has lost power or is in Fatal 

maintenance mode. 

ECS read parity error. Proceed tt 

Array too large. Fatal 

Buffer too small. Fatal 



97 

98 
99 
100 

101 

102 
110 

112 

113 

114 
115 



t Execution time diagnostic occurs when a variable file name is undefined. It is printed as 
Unassigned medium, file xxxxxxx (where xxxxxxx is the name of the undefined file) . 

I (Fatal or non -fatal depending upon operators response. 
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FORTRAN LIBRARY ROUTINE ENTRY POINTS 



Routine 


Entry Points 


ACGOER 


ACGOER 


ALNLOG 


ALOG, ALOGIO 


ASINCOS 


ASIN, ACOS 


ATAN 


ATAN 


ATAN2 


ATAN2 


BACKSP 


BACKSP 


BUFFEI 


BUFFEI 


BUFFED 


BUFFEO 


CABS 


CABS 


CBAIEX 


CBAIEX 


CCOS 


CCOS 


CEXP 


CEXP 


CLOG 


CLOG 


CSIN 


CSIN 


CSQRT 


CSQRT 


DABS 


DABS 


DATAN 


DATAN, DATAN2 



Externals 

SYSTEM, ABNORML 

SYSTEM 

SYSTEM 

SYSTEM 

SYSTEM 

SYSTEM, ABNORML, GETBA,CI01. , 
BKSPRU,FIZBAK 

SYSTEM, ABNORML, GETBA, OPEN. , 
CZOl. 

SYSTEM, ABNORML, GETBA, OPEN. , 
CIOl. 

SYSTEM 

SYSTEM 

COS, SIN, EXP, SYSTEM 

COS, SIN, EXP, SYSTEM 

ALOG, ATAN2, CABS, SYSTEM 

COS, Sm, EXP, SYSTEM 

CABS, SQRT, SYSTEM 

SYSTEM 
SYSTEM 
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Koutme 


Entry ; 


Points 


Externals 




DBADEX 


DBADEX, DBAREX, 


RBADEX 


DLOG, DEXP, SYSTEM 


DBAIEX 


DBAIEX 






SYSTEM 


DBLE 


DBLE 








DEXP 


DEXP 






SYSTEM 


DISPLA 


DISPLA 








DLNLOG 


DLOG, DLOGIO 






SYSTEM 


DMOD 


DMOD 






SYSTEM 


DSIGN 


DSIGN 






SYSTEM 


DSINCOS 


DSm,. DCOS 






ovt^TTnyT 


DSQRT 


DSQRT 






SYSTEM 


DUMP 


DUMP, PDUMP 






OUTPUTC, STOP 


DVCHK 


DVCHK 








ENDFIL 


ENDFIL 






SYSTEM, ABNORML, GETBA, 
FIZBAK., 0PEN., CI0M. 


FTNBIN 


FTNBIN 






SYSTEM, ABNORML, GETBA 


EXP 


EXP 






SYSTEM 


GETBA 


GETBA 






SYSTEM, ABNORML 


IBAIEX 


IBAIEX 






SYSTEM 


IDINT 


IDINT 






SYSTEM 


IFENDF 


IFENDF 






SYSTEM, ABNORML, GETBA 


JINITMS 


IXTYPE.OPENMS 


, STINDX 


GETBA, OPEN, .ABNORML, SYSTEM 


INPUTB 


INPUTB 






SYSTEM, ABNORML, GETBA, 
OPEN., CI01.,RDWDS. 


INPUT C 


INPUT C 






S>VSTTri\/r AT3\Tr>-Di\/rT /^tttitja 



KRAKER, OPEN. , RDCARD. , DAT. 
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Routine 



Entry Points 



Externals 



INPUTS 
lOCHEK 

lOCHEC 

KODER 

KRAKER 
LEGVAR 

LENGTH 

LOCF 

OUTPTB 

OUT PTC 

OUTPTS 

OVERFL 

OVERLAY 

PAUSE 

RANF 

RBAIEX 

RBAREX 

READEC 

READMS 

REMARK 
REWINM 
SECOND 



INPUTS 
lOCHEK 

lOCHEC 

KODER 

KRAKER 
LEGVAR 

LENGTH 
LOCF, XLOCF 
OUTPTB 

OUTPTC 

OUTPTS 

OVERFL 

OVERLAY 

PAUSE 

RANF 

RBAIEX 

RBAREX 

READEC 

READMS 

REMARK 
REWINM 
SECOND 



bYSTEM, AliNUJttML, KKAKliJK, 
SYSTEM, ABNORML, GETBA, 

R iJ ¥¥ iJO , O iSJJ X s 

SYSTEM, ABNORMAL, GETBA 
SYSTEM, ABNORML 
SYSTEM, ABNORML 

SYSTEM, ABNORML, GETBA 



SYSTEM, ABNORML, GETBA, 
(2(PEN., WRWDS., CK^l, 

SYSTEM, ABNORML, GETBA, 
KODER, dPEN., WRWDS., DAT., 
FIZBAK. 

SYSTEM, ABNORML, KODER 



IjUAJJJIiXI., OlOJ-HjlVi, .rtLJDiNvyxviVijj 



SYSTEM 

ALOG, EXP, SYSTEM 

SYSTEM 

GETBA, SIO. , aOl. .IXTYPE, 
ABNORML, SYSTEM 

SYSTEM, ABNORML, GETBA, CIOl. 
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Routine 


Entry Points 




SEGMENT 


SEGMENT 






LOADEB 


SIO$ 


SI0,.CI01. 
FIZBAK 


,OPEN. 


,BKSPRU. , 




SINCOS 


SIN, COS 






SYSTEM 


SLITE 


SLITE 






SYSTEM 


SLITET 


SLITET 






SYSTEM 


SNGL 


SNGL 








SQRT 


SQRT 






SYSTEM 


SSWTCH 


SSWTCH 






SYSTEM 


SYSTEM 


SYSTEM. SI 


fSTEMC 


. SYSTEMP 





Externals 



Q8NTRY, STOP, END, EXIT, 
ABNORML 



TAN 


TAN 


TANH 


TANH 


TIME 


TIME 


WRITE C 


WRITE C 


WRITMS 


WRITMS 



SYSTEM 
EXP, SYSTEM 
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FORTRAN FILE STRUCTURE AND M 

BLOCKED BINARY ||s|pyT/OUTPUT 



STRUCTURE OF FILES 



A file is an ordered sequence of user logical records. Each type of input/output that a FORTRAN 
programmer can use has a user logical record definition. 



FORMATTED I/O 



READ 


f,k 


PRINT 


f,k 


PUNCH 


f.k 


READ(u,f) 


k 


READ(u,f) 




WRITE (u,f) 


k 


WRITE(u,f) 





The user logical record (also referred to as a unit record) corresponds to a card image or a print 
line. User logical records may be a maximum of 150io characters for input, but no more than 
13610 are transferred on output records. (On S and L tapes a user logical record corresponds to 
a tape block.) For X tapes, user logical records may have a maximum of 136 characters for 
input/output records (only 135 will be printed). 



UNFORMATTED I/O 

READ(u) k 

WRITE (u) k 

When I/O is unformatted, the user logical record is the same as a SCOPE logical records on internal 
files or X magnetic tape files. On an S and L magnetic tape the physical representation of user logi- 
cal records is the same as that on a SCOPE internal tape even though there is no SCOPE-logical- 
record definition. 



BUFFER I/O 

BUFFER IN(u,k) (A,B) 

BUFFER OUT(u,k) (A,B) 
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On SCOPE internal files (including tape files) and binary S magnetic tapes , the user logical record 
is represented as a SCOPE logical record. On a coded X tape , the user logical record will always 
consist of 14 words (137 characters on tape) , and any attempt to write a record longer will result in 
a fatal diagnostic. On S and L magnetic tapes, tiie user logical record is defined to be one tape 
block, the information between two record gaps or between the load point and a record gap. On S 
magnetic tapes, 512 words is the maximum record lengtii. 

UNFORMATTED I/O 

Since the physical representation of FORTRAN unformatted user logical records is the same on S 
tapes as that on SCOPE internal tapes, the files created may be used interchangeably; a tape created 
as a SCOPE internal tape may be read as an S tape. Likewise, a tape created as an S tape may be 
read as a SCOPE internal tape (tapes written as X tapes must be read as X tapes) . On L tapes the 
maximum physical record (user logical record) is determined by the size of the user's buffer area. 

Throughput of small user logical records can be increased if S magnetic tapes are used instead of 
SCOPE internal or L tapes. Non-stop tape motion can often be achieved when the buffer size is in 
excess of 2,048iq words, which is tour tape physical record units. 

With use of blocked binary input/output files, logical records are grouped into blocks and accesses 
are made in terms of blocks rather than records. Since with each access several logical records, 
rather than only one, are transmitted to or from the file buffer, the speed of job throughput is in- 
creased by decreasing the number of accesses made to an input/output device . 



FILE FORMAT 

Blocked binary files have the following format: control word (CW), one logical record or part of 
one logical record (LR), CW, LR, etc. Logical records are packed in the order in which they are 
referenced, but the end of a block need not correspond to the end of a record. Records may extend 
across several blocks depending on their lengths and positions in the file. 

At least one control word is associated with each logical record. Control words created during 
output indicate the beginning of a logical record, the continuation of a lexical record, and the EOF. 

Each control word contains: 

End of record flag to indicate whether or not the next control word is at the beginning of a 
logical record 

Number of words between it and the control word at tiie beginning of the 

previous logical record (current record if it is the control word of a continuation) . 

Number of words between it and the next control word. 
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INPUT/OUTPUT OPERATIONS 

Blocked binary input/output operations are performed under the assumption that the file is in 
blocked format; nonblocked binary operations assume a nonblocked file format. If the mode of 
the operation is not the same as that of the file, the operation will not be executed correctly. 

The decision on whether blocked or imblocked binary files will be output is made by each installation. 
However, to change the format of one or more binary files, the library subroutine FTNBIN (section 
7.10) may be called to override the installation selection. 
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FORTRAN CROSS-REFERENCE MAP N 



If the ninth field of the run control card is non-zero, FORTRAN supplies the programmer with a 
cross-reference map after each PROGRAM, SUBROUTINE, or FUNCTION, purely as an aid to 
program debugging. The following information is furnished: 

Program length includii^ l/O Buffers 

Statement function references with the relative core locations, general compiler tag assigned, 
symbolic tag given in the program and the references to the statement function 

Statement number references with the same information as above 

Block names and ler^hs 

Variable references - also with location, general tag, symbolic tag, and a list of references 

Start of constants (relative address) 

Start of temporaries (relative address) 

Start of indirects (relative address) 

Unused compiler space 

The programmer should bear in mind that because of the operation of the compiler not all references 
will be listed. An actual physical reference is necessary before the reference is placed in the ref- 
erence map. If the required variable address is already in a register, the compiler will use the 
address in the register and not make an actual variable reference by name. A reference to a state- 
ment number will not be listed if an actual jump is not necessary, such as when the code simply 
falls through to the next statement and the compilation of a jump instruction is therefore unnecessary. 

The following cross reference map was produced by a main program compiled in 40, OOOg words of 
memory. 



N-1 
60174900 Rev. D 



STORAGE MAP FOR MAIN PROGRAM 

PROGRAM LENGTH INCLUDING I/O BUFFERS 
002453 

STATEMENT FUNCTION REFERENCES 



— Length of main program; includes (for tiiis example) 
20228 words for I/O buffers. 



LOCATION GEN TAG SYM TAG 
STATEMENT NUMBER REFERENCES 



REFERENCES 



LOCATION 


GEN TAG 


SYM TAG 


REFERENCES ^ 


000201 


L00057 


2 


000177 


000214 


C00007 


90 


000003 


000223 


C00016 


100 


000007 


000225 


C00020 


101 


000015 


000233 


C00026 


110 


000117 


000255 


C00050 


120 


000151 


000267 


C00062 


130 


000155 


000247 


C00042 


140 


000137 


000230 


C00023 

NGTHS -^^"^ 


150 


000024 


BLOCK NAMES AND LE 


=■ 




- 000002 


LABI 


000001 





VARIABLE REFERENCES 

LOCATION GEM TAG SYM TAG 

000356 VOOOll AB 

000357 V00012 AC 
OOOOOOCOl V00020 ALPHA 
000362 V00015 AREA 
000360 V00013 BC 
OOOOOlCOl V00021 BETA 
000000C02 V00002 GAMMA 



START OF CONSTANTS-^ 
000205 

START 05" TEMPORARIES 
000274 

START OF INDIRECTS 
000346 



Statement labels and locations. The statement 
labeled 2 is generated object code at location 201. 
FORMAT statements are transmitted and stored in 
BCD code in object program. FORMAT statement 
100 is stored at location 223 which follows the main 
program code and constants. 



Length of blank and labeled common. 



Location of all variables. AREA is stored at location 
362. BETA is stored in second word of common. 



REFERENCES 
000053 000071 



000062 
000166 
000105 
000071 
000170 
000172 



000070 

000107 
000077 



000111 
000075 

000113 
000110 



000114 
000110 

000160 
000115 



000142 
000114 



000146 



000144 



All constants are stored immediately following 
program object code. 



UNUSED COMPILER SPACE 
002700 




This program used (40000-2700) or 351008 
memory positions. 

Unused compiler space is 27008 ^^^ *^is program. 
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PRINT FILE CONVENTIONS 



Files with a print disposition (including OUTPUT) and files assigned to a printer, must adhere to 
specific format rules as follows: 

1. All characters must be in display code. 

2 . The end of a print line must be indicated by a zero byte in the lower 12 bits of the last cen- 
tral memory word of the line. Any other unused characters in the last word should be filled 
with display code blanks (553). For example, if the line has 136 characters (including 
carriage control), the last word would be aabbccddeeffgg550000 in octal; the letters repre- 
sent the last seven characters to be printed in the line. No line should be longer than 

136 characters. 

3. Each line must start in the upper 6 bits of a central memory word. 

4. The first character of a line is the carriage control, which specifies spacing as shown in the 
following table. It will never be printed, and the second character in the line will appear in 
the first print position; therefore a maximum of 136 characters can be specified for a line, 
but only 135 characters will be printed. All characters apply to both the 501 printer and 
the 512 printer unless they are specifically designated otherwise. 

Carriage Control Characters 



Character 



Action Before Printing 



Action After Printing 

Eject to top of next page 
Space to last line of page 
No space 
No space 
No space 
No space 
No space 
No space 

When the following characters are used for carriage control, no printing takes place. The remainder 
of the line will not be printed. 



A 


Space 1 


B 


Space 1 


1 


Eject to top of next page 


2 


Skip to last line on page 


+ 


No space 


(zero) 


Space 2 


- (minus) 


Space 3 


blank 


Space 1 



Q Clear auto page eject 

R Select auto page eject 

S Clear 8 vertical lines per inch (512) 

T Select 8 vertical lines per inch (512) 

PM Outpait remainder of line (up to 30 characters) on the B display and the da5rfile and 

(col 1-2) wait for the JANUS typein /OKuu. For files assigned to a printer, n.GO. must be 
typed to allow the operator to change form or carriage control tapes. 
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Any pre-print skip operation of 1, 2 or 3 lines that follows a post skip operation will be reduced to 
0, 1 or 2 lines. 

The functions Q thrcu gh T should be given at the top of a page. S and T can cause spacing to be 
different from the stated spacing if given in other positions on a page. Q and R will cause a page 
eject before the next line is printed. 



0-2 60174900 Rev. D 



INDEX 



Actual parameters 5-3; 7-1, 2, 13, 17 
Alphanumeric 

Conversion 9-14 

Identifiers 2-1 
ANSI 

Compatibility 9-25 

Scale factor 9-25 

Unlimited groups 9-25 
Ariliimetic 

Evaluation 3-2 

Expression 3-1; 7-2 

In masking statements 3-10 

IF, three branch 6-3, 6-4 

Mixed-mode expressions 3-4 

Replacement 4-1 

Statement function B-2 
Array 2-8 

Allocation 5-2 

COMMON declaration 2-8 

Dimension 2-7, 8; 5-1; 7-17 

Name 7-2; 9-23; 10-6 

Relative location 2-7 

Single dimension 2-8 

Storage 

Reserved 5-1, 2, 3 
Shared 5-7 

Structure 2-8 

Transmission 9-2 

Type declaration 2-8; 5-1 
ASSIGN statement 6-1,2 
Assigned GO TO statement 6-1 
Assigned values (DATA) 5-9 
Asterisk 1-1,2; 9-21 

Editing specification 9-21 

Output (Conversion) 9-5, 9, 12 
Aw input specification 9-14 



a suiiix 2-is 
BACKSPACE 10-9; 1-4 
BCD 

Code A-1 

Conversion 9-5 

Logical record 10-1 

Mode 10-2 

Word structure E-1 
Binary 

Blocked 7-10; 10-3; M 

Files, I/O format 7-10 

Logical record 10-1 

Mode 10-2 
Blank common 5-3 ,4,9 

Overlay 8-1 
Blanks 1-1; 2-1 

Inserted (editing) 9-18 
BLKDAT 5-13 
Block 

Blank 5-3 

Common 5-3 

Identifier 5-5, 6 

Labeled 5-3 

Numbered 5-3 
BLOCK DATA 5-13 

Subprogram 5-13 
Blocked binary I/O 7-10; M-1 
Blocking flag 7-10 
BUFFER 

I/O routines I-l; M-1 

IN/OUT 10-12 

Parity key 10-11 

Size 7-4 

Statements 10-10 

Transmission mode 10-10 

Undefined operation 1-5 
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C 1-1, 2 

CALL statements 2-1; 7-5 

DISPLA 7-12 

DO loop 7-5 

DUMP 7-11 

DVCHK 7-10 

EXIT 7-11 

FTNBIN 7-10 

OPENMS 7-11 

OVERFL 7-10 

OVERLAY 7-10; 8-4 

PDUMP 7-12 

READEC 7-11 

READMS 7-11 

REMARK 7-12 

SECOND 7-11 

SLITE 7-10 

SLETET 7-10 

SSWTCH 7-10 

STNDX 7-12 

WRITMS 7-12 
Card logical record 

Punch 10-1 

Reader 10-1 
Carriage control character 10-1, 2; 0-1 
Central memory 7-12 
Central processor 7-12 
CL 2-1 

Closed loop 7-4 
Coding 1-1 

Character code A-1 

Columns 1-1, 2 

Comments 1-2 

Continuation card 1-2 

Format 1-1 

Identification field 1-2 

line 1-1 

Statement 1-1 
Number 1-2 
Comment, coding 1-1, 2 

Hollerith insertions, editing 9-18 



COMMON declaration 5-3 

Common blocks 5-3, 13 

Overlay 8-1 

With DATA 5-9 
Compilation/execution F-4 

With mixed deck F-9 

With prepunched binary deck F-6 
Compile once, execute 3 times F-7 
Compile and produce binary deck F-4 
Compiler diagnostics G-1 
Compiling mode 7-16 

Options F-1 
Complex 

Constants 2-4 

Data items 9-4 

lype declaration 5-1 

Variables 2-7; 5-7 

Word structure E-1 
Composition, overlay 8-1 
Computed GO TO statement 6-2 
Computer word structure, constants E-1 
Constant 2-2; 7-2; E-1 

Complex 2-4 

Computer word structure E-1 

DcHible precision 2-4 

Hollerith 2-4 

Integer 2-2 

Logical 2-5 

Octal 2-3 

Real 2-3 
Continuation card , coding 1-1, 2 
CONTINUE statement 6-10 
Control statements 6-1; 7-5; B-3 

ASSIGN 6-1 

CONTINUE 6-10 

DO 6-4 

END 6-11 

GO TO 6-1 

IF 6-3 

IF ENDFILE 10-10 

IF EOF 10-10 

IF lOCHECK 10-10 

PAUSE 6-10 

RETURN 6-10 

STOP 6-10 
Conversion, mode 3-9; 4-1, 4 

Table 4-2 
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Conversion specifications 9-4, 5 
Aw input/output 9-14 
Dw.d input/output 9-11 
Ew.d input 9-6 
CXitput 9-5 

J'w Q iunviT 3—3 

Output 9-8 
Gw.d input 9-11 

Output 9-10 
Iw input 9-12 

Output 9-11 
Lw input/output 9-15 
Ow input/ouput 9-13 
Rw input 9-15 

Output 9-14 
Cross-reference map N-1 



D (double precision) 2-4 
DATA 

Declaration 1-1; 2-1; 5-9; 7-1; B-2 

Coding line 1-1 

Common blocks 5-4 

Variable format 9-23 
Dayfile message 6-10; 7-11, 12; 8-6; J-1, O-l | 

Hform 2-4 
Debugging aid N-1 

Declarations, Type and Storage Allocation 5-1 

COMMON 5-3 

DATA 5-9 

DIMENSION 5-2 

EQUIVALENCE 5-7 

Type 5-1 
DECODE 10-15 
Diagnostics 

Compilation G-1 

Execution K-1 

Listing 7-3 
Differences, FORTRAN E, 63, IV D-1 

Mode 7-16 



DIMENSION declaration 5-1,2 

With DATA 5-9 
Dimension variable 5=3; 7-17 
Disk logical record 10-1 
DISPLA 7-12 

uxoyiixy uuae -ii- -l; J-U-o; a— j.j kj—l 

Conversion 9-14 

Word structure E-1 
Division 

By zero 7-10 

Result truncated 3-2 
DO index limits 

Integer constant 2-2 

Integer variable 2-6 
DO loop 6-4; 7-16; 9-1, 2 

CALL statement 7-5 

ENTRY statement 7-4 

Execution 6-5 

Implied 2-8; 5-9; 9-1, 2 

Termination 6-5, 7, 8, 10 

Transfer 6-7 
DO nests 6-5 
DO statement 6-3, 4 
Dollar sign 1-1,2 

NAME LEST 

Input data 10-7 
Output data 10-9 
DOUBLE 5-1, 7 
Double precision 

Constants 2-4 

Conversion 9-11 

D 2-4 

Expressions evaluated 3-4 

Type declaration 5-1 

Variables 2-7 

Word structure E-1 
DUMP 7-2, 12 

Format indicators 7-12 
DVCHK (j) 7-10 
Dw.d input specification 9-11 

Output specification 9-11 

Scaling 9-17 
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ECS 7-11 
Editing 

Codes 9-4 
New record 9-20 
Specifications 9-4, 18 
wH input 9-19 
wH output 9-18 
wX 9-18 
*...* 9-21 
Eject, page 1-1, 3 
Elements of FORTRAN 2-1 
ENCODE 10-13 
END FILE 10-9 
END statement 1-2; 6-3, 11; 7-18 

RETURN 6-11 
End of record / 9-21 
Entry points 

Library routine L-l 
Subprograms B-1 
ENTRY siatement 7-8 
EQUIVALENCE declaration 5-7; 7-1 
Variables in common 5-8; 7-16 
With DATA 5-9 
Error processing, SYSTEM J-1 
Evaluation 

Arithmetic 3-2, 4 
Relational 9-6 
Ew.d input specification 9-6 
Output specification 9-5 
Scaling 9-17 
Execution/compilation F-4 
With mixed deck F-9 
With prepunched binary deck F-6 
Execution diagnostics K-1 
EXIT 7-12 

Exit to operating system 6-10 
Exponentiation 2-3; 3-4 
Expressions 3-1 
Arithmetic 3-1 
Evaluated 3-2, 3-4 
Logical 3-8 
Masking 3-9 
Mixed mode 3-4 
Relational 3-6 



Extended core storage 7-11 
EXTERNAL 7-6 

CALL name 7-5 

ENTRY 7-8 



F 9-15 
False value 

Constant 3-5 

Conversion 9-15 

Logical 3-8; 6-3 

Relational 3-7 

Variable 2-7 
Field length calculated (DECODE) 10-15 
File 

Index 7-12 

Format M-2 

Labeled 1-4 

Multi I-l 

Names 7-3, 4; 8-9 

Print disposition O-l 

Structure I-l; M-1 
First characters (integer) 2-5; 7-13 

Carriage control 10-1 
Floatingpoint 2-6; 4-1; 7-11, 12 

Conversion 9-8 

Overflow 7-10 
Formal parameters 5-3, 9; 7-1, 14, 17 
FORMAT declaration 1-1; 9-1, 4 

List, I/O 9-1 

Specification 9-22-, 10-13 
Format, overlay 8-4 
Format, program- subprogram H-1 
Formatted I/O M-1 
FORTRAN 

Character conversion 9-14 

Character set 2-1; A- 1 

Control card F-1 

Cross-reference map N-1 

Differences, H, 63, IV D-1 

Functions C-1 
Identifiers 2-1 
I/O routines I-l 

Library routine entry points 2-1; L-l 
Statement list B-1 
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FTNBIN 7-10; K-4; L-2; M-3 
FUNCTION subprogram 6-10; 7-2, 13, 18 

Map, cross reference N-1 

Mode 7-13 

Name 7-2 

Reference 7-1, 2, 13 

Statement 7-14 
Functions 7-1 

FORTRAN C-1 

In line C-1 

Library 7-16 
Fw.d input specification 9-9 

Output specification 9-8 

Scaling 9-16 



GO TO statements 6-1,4 

Assigned 6-1 

Computed 6-2 

Unconditional 6-1 
Gw.d input specification 9-11 

Output specification 9-10 

Scaling 9-17 



H (Hollerith) 

Field 1-1; 2-1; 9-18, 19 
Terminator 2-5 
*...* 9-21 
Form 2-4; 8-2 
Input insertions 9-19 
Output insertions 9-18 

Headings, output 9-18 

Hierarchy 

Arithmetic evaluation 3-2 
Logical operations. 3-8 
Masking expressions 3-9 
Mixed mode 3-4 , 7 

Hollerith constants 2-4 
(see H) 
Word structure E-1 



I (first character) 2-5; 5-1 
Identification 

Coding field 1-1, 2 

Overlays 8-4 
Identifiers 

Alphanumeric 2-1 

Common blocks 5-3,5 

FORTRAN declaration 10-1 

Statement 2-2 

Type declaration 5-1 
IF 6-3 

IF ACCUMULATOR OVERFLOW D-2 
IF DIVIDE CHECK D-2 
IF (ENDFILE) 10-10 
IF EOF 10-10 

IF QUOTIENT OVERFLOW D-2 
IF SENSE LIGHT D-2 
IF SENSE SWITCH D-2 
IF statements 6-3 

Logical 6-3, 4 

One branch logical 6-3 

Three branch arithmetic 6-3 

Two branch logical 6-3 
IF (UNIT) 10-10 
Index variable (DO) 6-4; 9-2 
Indexing parameters 6-4 
INPUT file 7-3 
Input/Output formats 9-1 

BCD statements 9-4 

T-i-., m n in 

jsinary liies j-xu 

Block/non-blocked 7-10 
Blocked binary M-1, 2, 3 
list 9-1; 10-1 
Input/Output statements 10-1 
Integer 

Constants 2-2 
Conversion 

Decimal 9-12 
Fraction 9-9 
Octal 9-13 
Type declaration 5-1 
Variables 2-6 
Inter subroutine B-1 
Intraprogram transfers B-3 
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I/O 

Blocked binary M-1 

Buffer names 7-2 

CHECK 10-10 

Devices 10-1 

File structure I-l 

Format 9-1 

list 2-8; 9-1; 10-1 

Routines I-l 

Statements 10-1; B-3 
BCD 9-4 

BUFFER 10-10; M-1 
Formatted M-1 
NAME LIST 10-6 

Output 10-2 

PRINT 10-2 
PUNCH 10-2 
WRITE 10-2 
WRITE TAPE 10-3 

READ 10-4 

iS.pc iianuiing 10—3 

Unformatted M-1 
Iw input specification 9-12 

Output specification 9-11 



J (first character) 2-5; 5-1 
JOB card (SCOPE) 7-11 



K (first character) 2-5; 5-1 



L (first character) 2-5; 5-1 

Form (SEGMENT) 8-6 

Left justified 2-5; 5-1 
L tape M-1, 2 
Labeled common 5-3 ,4,5 

BLOCK DATA 5-13 

File 1-4 

Overlay 8-1 

Tape 1-4 

Variables, assigned value 5-9 



Left justified 2-5 
Levels 

CALL OVERLAY 8-9 

Number 8-4 

Overlay 8-3 

Segment 8-5 
IXK) F-1, 2 
library 

Functions 7-2, 16; C-2 

Routine entry points L-1 

Subroutines 7-2, 9 
Line, coding 1-1 
LIST F-2 
List 5-1 

I/O format 9-1 
Listing diagnostics 7-3 
Load and execute F-8 

S^ments F-10 
Load and run F-3 
lX>ADERcall 8-1 
Loader cards 8-8 

Overlay 8-9 

S^ment 8-8 
Loadii^ 

Overlays 8-3 

Sequence 8-1 
Logical 

Constants 2-5 

Word structure E-1 

Conversion 9-15 

Expression 3-8; 7-2 

IF 6-3, 4 

Mode 2-3 

Overlay format 8-4 

Records 10-1; I-1-, M-1 
BCD 10-1 
Binary 10-1 

Replacement 4-4 

Type declaration 5-1 

Unit number 10-1 

Variables 2-7 
Lo<^ control statements B-3 
Lw input specification 9-15 

Output specification 9-15 
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M (first character) 2-5; 5-1 
Main program 7-3 

Array dimension 7-18 
Overlay 8-3, 4 
Many branch GO TO 6-1, 2 
Map, cross reference N-1 
Masking expressions 3-9 
Masking replacement 4-4 
Mass storage 7-11; 1-2 
Matrix manipulation 7-17 
Minus sign 2-4 
Mixed deck structure F-9 
Mixed-mode 

Arithmetic expressions 3-4 
Evaluation 4-1 
Replacement 4-1 
Type relationship 3-4 
Undefined operation 1-5 
Mode 

Compiling 7-16 
Conversion 3-9; 4-1,4 

Logical 2-3 

Program 7-16 

Table 4-2 
Multi-file I-l 
Multiple replacemait 4-4 



N (first character) 2-5; 5-1 

Names 2-1 

NAME LIST statement 10-6 

Identifier 10-6 

Name 10-6 
Nesting 

DO loops 6-5 

Repeat format 9-22 
New record specification 9-21 
NOUST F-2 
Non-standard recovery J-2 , 3 

A/NA bit J-2 , 5 

Fatal J-2, 3 

Non-fatal J-2, 4 
Normalized form 2-3, 7; 7-12 
nP scale factor 9-16 
Numbered common 5-3, 4, 5 

BLOCK DATA 5-13 



O (octal) 2-1, 3 
Octal constants 2-1, 3 

Word structure E-1 
One-branch logical IF 6-3 
OPENMS 7-11; 1-2 
Operands 

Arithmetic 3-1 

Type dominance 4-1 
Arithmetic 3-4 

Relational 3-7 
Operating system 6-10 
Operator intervention 6-10 
Operators 

Arithmetic 3-1 

Logical 3-8 

Masking 3-9 

Relational 3-7 
Options, compiler mode F-l 
OUTPUT file 7-3, 12; J-1 
Output statements 10-2 
OVERFL 7-10 
OVERLAY 8-1 
Overlay 8-1 

Call 8-2 

Card 8-3 

Composition 8-3 

Format 8-4 

Identification 8-2 

Levels 8-1 

Usage 8-2 

Ow input specification 9-13 
Output specification 9-13 



P scale factor 9-16 
Packing words 10-15 
Page eject 1-1,3 
Parameters 7-1 

Actual 7-2 

Formal 7-1 
Parentiieses (format repetition) 9-22, 23 
PAUSE statement 6-10 
PDUMP 7-2, 12 
Period , page eject 1-1, 3 
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Physical record 10-3; I-l 
Plus sign 2-3 
PRINT 7-31; 10-2 
Print 

C onvention s O- 1 

File disposition O-l 

Frequency J-2 
Printer control, tape 10-3 
Printer, logical record 10-1 
Primary overlay 8-1 
Priority level 8-5 
PRCXjRAMcard 7-3, 18 

Map, cross reference N-1 
Program 

Arrangement 7-18 

Communication 7-1 

Format H-1 

Main 7-3 

Modes 7-16 

■r>_i x_t_i _ f>_-t 

xkcli/ociUlUlo 0~X 

Termination 6-11 
Program- subprogram format H-1 
PUNCH 7-3; 10-2 
PUNCHB F-4 
Punched cards 1-3 



R (justified) 2-5 
Random access files 7-11; 1-2 
Random format input 10-16 
READEC 7-11; K-6; 1^3 
READMS 7-11; 1-2; K-6; L-3 
Read statements 10-4 
PRINT 7-3 
READ 10-4, 5, 6 
READ INPUT TAPE 10-4 
READ TAPE 10-5 
Real 

Constants 2-3 
Input conversion 9-6 
Type declaration 5-1 
Variables 2-6 
Word structure E-1 



Rearrange data in record 

(ENCODE) 10-16 
Record, size/structure 10-1; I-l 
Recovery, non-standard J-2, 3 

A/NAbit J-2, 5 

Fatal J-2, 4 

Non-fatal J-2, 3 
Relational expressions 3-6 
Relocatable 

Programs 8-1 

Subprograms 8-1 
Repeated format specifications 9-22 

Unlimited groups 9-23 
ANSI 9-25 
Repetition factor 9-22,23 
Replacement statements 4-1; B-2 

Arithmetic 4-1 

Logical 4-4 

Masking 4-4 



ivixACU— J.ii\>«ac; 



Multiple 4-4 
Reserved words 2-2 
RETURN statement 6-4, 10; 7-13 

END 6-11; 7-16 
REWIND 10-9; 1-4 
Right justified 2-5 
RUN F-1 
Rw inp«it specification 9-15 

Output specification 9-14 



S suffix 7-2 , 12 

S tape M-1, 2 

Scale factor 9-6, 14, 16 

ANSI 9-25 
Scaling 9-16 

Dw.d 9-17 

Ew.d 9-17 

Fw.d 9-16 

Gw.d 9-17 

nP factor 9-16 
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SCOPE 7-11; 10-10; 1-4; M-1, 2 

Loader 5-6 
SECOND 7-11; L-3 
Secondary overlay 8-1 
isE'wTXON carQ «— >< 

SEGMENT card 5-13; 8-8 
Segment 

Call 8-6 

Card 5-13, 8-5 

Delinking 8-6 

File name 8-6 

External references 8-5 

Length 8-6 

Levels 8-5 

Loading 8-5 

Priority 8-5 

Segmentation 5-13; 8-5 

SEGZERO 8-8 

Semi-colon 2-1, 5; 5-9 
Sense lights 7-9 
Sense switches 7-10 
Separators, statement 1-1 
Sequencing cards 1-2 
Simple variable 2-5 
Skip (editing) 

Characters 9-18 

Cards 9-20 

Lines 9-20; 0-2 

Tape records 9-20 
Slash 9-20 
SLITE statement 7-9 
SLITET statement 7-9 
Special characters 2-1 
Specifications 9-18 

Conversion 9-5 

Editing 9-18 

Repeated format 9-22 

Variable format 9-23 
SSWTCH statement 7-10 
Standard inifHit/output imit 7-3 



Statements 

Buffer 10-10 

Coding 1-1 

Control 6-1 

FORTRAN, with page reference B-1 






i>xor 



f7_i A 
| — ii 



Identifier 2-2 

I/O 10-1 

Number 1-2; 10-1 

Output 10-2 

Read 10-4 

Replacement 4-1 

Tape handling 10-9 
Status checking 1-4 

IF UNIT 10-10 

IF EOF 10-10 
STINDX 7-12; 1-2 
STOP statement 6-10 
Storage allocation 5-1 

Declarations 5-2, 3,5; B-2 

Reservation, array 5-1, 2, 3 

Shared, EQUIVALENCE 5-7 
Structure 

Array 2-8 

File I-l 
Subprogram 

Block data 5-13 

Communication 7-1 

Entry points B-1 

Format H— 1 

Function 7-13 

Relocatable 8-1 

Statements B-1 

Variable dimensions 5-3; 7-17 
SUBROUTINE 7-4, 18 

Map, cross reference N-1 

Name 7-2 

Subprogram 7-4 
Subroutine 7-1 

Library 7-9 

Subprogram 6-10; 7-4 
Subscript limits 

Integer constants 2-2 

Integer variables 2-6 
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Subscripted variable 2-5, 7, 9; 5-7 
Subscripts, type declaration 5-1 
Symbolic name 2-1 
S3mibol manipulation statement B-2 
SYSTEM routine J-1 



T 9-15 
TAPE 7-3 

Tape handling statements 10-9 
BACKSPACE 10-9 
END FILE 10-9 
IF (ENDFILE) 10-10 
IF (EOF) 10-4, 10 
IF (UNIT) 10-10 
REWIND 10-9 
Tape 

L M-1, 2 
Labeled 1-4 
■^-'••jf^i.ijii.i iGcora J.U— 1 
Printer cmtrol 10-3 
Read 10-4, 5 
SCOPE M-1, 2 
S M-1, 2 
Write 10-2 
X M-1, 2 
Terminate execution 7-12 
Three-branch arithmetic IF statement 6-3 
Titles, Hollerith 9-18 
Transfer control 6-1; 7-5; 9-18; 10-10 
To calling program 7-12 
To operating system 6-10; 7-12 
Transfer data 7-11 

Words 7-11 
Transfer statements B-1 
True value 

Conversion 9-15 
Constant 2-5 
Logical 3-8; 6-3 
Relational 3-7 
Variable 2-7 

Two-branch logical IF statement 6-3 4 
Type 

DATA 5-9 

Declaration 2-5, 6, 7; 5-1; B-2 

ENTRY 7-8 

Indicator 7-13 

Relationship, mixed mode 2-4 



Unconditional GO TO statement 6-1 
Undefined operation 

Buffer 1-4 

Mixed mode 1-4 
Unformatted I/O M-1, 2 
Unit record I-l; M-1 
Unlimited groups specification 9-23 



Variable dimensions in subprograms 5-3; 7-17 
Variable format 9-23 
Variables 2-5 

Common 5-8 

Complex 2-7 

DATA declaration 5-9 

Dimensions 7-17 

Double precision 2-7 

Explicit type 2-5, 6 

Implicit type 2-5, 6 

Integer 2-5, 6 

Labeled common 5-9 

Logical 2-7 

Real 2-6 

Simple 2-5 

Subscripted 2-7, 9 

Values assigned 5-9 

Type 2-5, 6 
VC 2-1 



Word structure, constants E-1 
wH input specification 9-19 

Output specification 9-18 
WRITEC 7-11; K-5; L-4 
WRITE 10-2, 3, 6 
WRITE OUTPUT TAPE 10-2 
WRITE TAPE 10-3 
WRITMS 7-11; 1-2; K-6; Ir-4 
wX specification 9-18 
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Xtape M-1, 2 

Zero lengtii record 10-3 



* Comments 1-1, 2 
Output 9-5, 9, 12 

* ... * Comments 9-2 1 
Headings 9-21 
Titles 9-21 

$ Comments 1-1,2 

Statement separator 1-1 
NAME LIST 10-7, 9 

/ (end of record) 9-20 
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CONTROL DATA 



COMMENT SHEET 

TITLE: FORTRAN Reference Manual 
PUBLICATION NO. 60174900 REVISION F 

This form is not intended to be used as an order blank. Control Data Corporation solicits your comments about this 
manual with a view to improving its usefulness in later editions. 



Do you find it adequate for your purpose? 
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General comments: 
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